Avaleht
uus teema   vasta Tarkvara »  Programmeerimine »  E-maili andmebaasist exceli tabeli loomine märgi kõik teemad loetuks
märgi mitteloetuks
vaata eelmist teemat :: vaata järgmist teemat
Hinnavaatlus :: Foorum :: Uudised :: Ärifoorumid :: HV F1 ennustusvõistlus :: Pangalink :: Telekavad :: HV toote otsing
autor
sõnum Saada viide sõbrale. Teata moderaatorile
otsing:  
nz
HV vaatleja
nz

liitunud: 15.12.2001




sõnum 10.12.2010 14:02:13 E-maili andmebaasist exceli tabeli loomine vasta tsitaadiga

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
vaata kasutaja infot saada privaatsõnum
sosssepp
HV veteran
sosssepp

liitunud: 12.05.2003




sõnum 13.12.2010 22:07:27 vasta tsitaadiga

Huvi pärast küsin, mis kontrolleriga tegu on?
Kommentaarid: 85 loe/lisa Kasutajad arvavad:  :: 0 :: 2 :: 73
tagasi üles
vaata kasutaja infot saada privaatsõnum
alfreedo
HV vaatleja

liitunud: 20.06.2010




sõnum 20.12.2010 14:22:28 vasta tsitaadiga

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
vaata kasutaja infot saada privaatsõnum
näita postitusi alates eelmisest:   
uus teema   vasta Tarkvara »  Programmeerimine »  E-maili andmebaasist exceli tabeli loomine
[vaata eelmist teemat] [vaata järgmist teemat]
 lisa lemmikuks
näita foorumit:  
 ignoreeri teemat 
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.