praegune kellaaeg 29.03.2024 11:55:42
|
Hinnavaatlus
:: Foorum
:: Uudised
:: Ärifoorumid
:: HV F1 ennustusvõistlus
:: Pangalink
:: Telekavad
:: HV toote otsing
|
|
autor |
sõnum |
|
nz
HV vaatleja
liitunud: 15.12.2001
|
10.12.2010 14:02:13
E-maili andmebaasist exceli tabeli loomine |
|
|
Mul selline mure: tööstuskontrolleri ethernetiotsa väljundiks on ainult e-mail, aga andmed, mida ta väljastab, oleks vaja saada exceli tabelisse.
Kas keegi oskab soovitada mõnda lihtsat lahendust või programmi, mis teeks mitme e-maili sisust ühe tabeli.
E-mail ise on selline:
tsitaat: |
Subject: TEST [User Message: 0x0000]
DVPEN01-SL MAIL EVENT
Device Range: D900 ~ D911
Device Hex Decimal
----------------------------------
D900 H'0457 K'1111
D901 H'0D05 K'3333
D902 H'5C11 K'23569
D903 H'0000 K'0
D904 H'0000 K'0
D905 H'0000 K'0
D906 H'7FFF K'32767
D907 H'7FFF K'32767
D908 H'7FFF K'32767
D909 H'0000 K'0
D910 H'000D K'13
D911 H'0010 K'16
----------------------------------
|
Muutujad on User message kood ning HEX ja Decimal väärtused
|
|
tagasi üles |
|
|
sosssepp
HV veteran
liitunud: 12.05.2003
|
13.12.2010 22:07:27
|
|
|
Huvi pärast küsin, mis kontrolleriga tegu on?
|
|
Kommentaarid: 85 loe/lisa |
Kasutajad arvavad: |
|
:: |
0 :: |
2 :: |
73 |
|
tagasi üles |
|
|
alfreedo
HV vaatleja
liitunud: 20.06.2010
|
20.12.2010 14:22:28
|
|
|
Alustuseks ehk see.
Enne koodi jooksutamist ava Outlook.
Kui Sa püüad kogu meili saata otse Exceli lahtrisse ja saad ka info lahtrisse on kindlate üksikandmete hilisem kättesaamine sealt keeruline.
Ehk on kergem need meilid lugeda tekstifailidesse ja tekstifailidest otsida kindlat infot ja vastavuse leidmisel lugeda see Excelisse.
Sub KontrollerMailid()
Const S_SUBJECT As String = "MailiPealkiri" 'Sisesta siia mailipealkiri
Dim olApp As Outlook.Application, fInbox As MAPIFolder
Dim olInboxCollection As Object, olInboxItem As Object
Dim iCount As Integer, itemCount, n, nFile As Integer
On Error Resume Next
Set olApp = GetObject(, "Outlook.Application")
If olApp Is Nothing Then
MsgBox "Outlook is not running: please open the application first"
Err.Clear
Exit Sub
End If
On Error GoTo Veateade
Set fInbox = olApp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
Set olInboxCollection = fInbox.Items
itemCount = olInboxCollection.Count
iCount = 0
For n = itemCount To 1 Step -1
Set olInboxItem = olInboxCollection(n)
If StrComp(olInboxItem.Subject, S_SUBJECT) = 0 Then
iCount = iCount + 1
' MsgBox olInboxItem.Body
nFile = FreeFile
Open "C:\blaa\blaa\Desktop\KontrolleriMeilid\Text(" & iCount& ").txt" For Output Shared As #nFile
Print #nFile, olInboxItem.Body
Close #nFile
End If
Next n
Veateade:
If Err <> 0 Then MsgBox "Error:" & vbCrLf & Err.Description
End Sub
|
Kõik Outlooki Inboxi meilid doc.failidesse.
Sub KoguOutlookiSisu()
Dim olApp As Outlook.Application, fInbox As MAPIFolder
Dim olInboxCollection As Object, olInboxItem As Object
Dim iCount As Integer, itemCount, n, nFile As Integer
On Error Resume Next
Set olApp = GetObject(, "Outlook.Application")
If olApp Is Nothing Then
MsgBox "Outlook is not running: please open the application first"
Err.Clear
Exit Sub
End If
On Error GoTo Veateade
Set fInbox = olApp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
Set olInboxCollection = fInbox.Items
itemCount = olInboxCollection.Count
iCount = 0
For n = itemCount To 1 Step -1
Set olInboxItem = olInboxCollection(n)
iCount = iCount + 1
nFile = FreeFile
' Open "C:\blaa\blaa\Desktop\KontrolleriMeilid\Text(" & A & ").doc" For Output Shared As #nFile
Print #nFile, olInboxItem.Subject
Print #nFile, vbNullString
Print #nFile, olInboxItem.Body 'olInboxItem.Subject
Close #nFile
Next n
Veateade:
If Err <> 0 Then MsgBox "Error:" & vbCrLf & Err.Description
End Sub
|
|
|
Kommentaarid: 2 loe/lisa |
Kasutajad arvavad: |
|
:: |
0 :: |
0 :: |
2 |
|
tagasi üles |
|
|
|
lisa lemmikuks |
|
|
sa ei või postitada uusi teemasid siia foorumisse sa ei või vastata selle foorumi teemadele sa ei või muuta oma postitusi selles foorumis sa ei või kustutada oma postitusi selles foorumis sa ei või vastata küsitlustele selles foorumis sa ei saa lisada manuseid selles foorumis sa võid manuseid alla laadida selles foorumis
|
|
Hinnavaatlus ei vastuta foorumis tehtud postituste eest.
|