Pytanie : I chcieć parse arkusz kalkulacyjny tekst w światopogląd using VBA i save the wartość w arkusz kalkulacyjny

Cześć,

I mieć wiadomość i tekst pole jak pokazane w the dołączać obrazek. Axasoft być od OnTime, produkt od Axasoft.

I chcieć

1) Parse/>1) ten email i wydobywać the incydent liczba using VBA (2000 w ten przykład)
2) Pase the emal i wydobywać the status (Podczas Rozwój)
3) Append the tekst "incydent liczba", "status" tekst file

I zakładać/>3) wymagać VBA, ale jakaś podejście że praca być świetnie.

Odpowiedź : I chcieć parse arkusz kalkulacyjny tekst w światopogląd using VBA i save the wartość w arkusz kalkulacyjny

Tutaj być mój rozwiązanie.  Podążać te instrukcja the kod Światopogląd.

1.  Zaczynać Światopogląd
2.  Klikać Narzędzie > Makro- > Wizualny Podstawowy Redaktor
3.  Jeśli nie już rozprężony, rozszerzać Microsoft Office Światopogląd Przedmiot
4.  Jeśli nie już rozprężony, rozszerzać Moduł
5.  Wybierać istniejący moduł (e.g. Module1) double-clicking na ono lub tworzyć nowy moduł right-clicking Moduł i Wszywka > Moduł.
6.  Kopiować the kod od the Kod Odrzynek pudełko i klajstrować ono w the okno tafla Światopogląd VB Redaktor okno
7.  Redagować the kod potrzebować.  I zawrzeć komentarz gdziekolwiek komentarz potrzeba lub móc
8.  Klikać the dyskietka ikona na the pasek narzędzi save the zmiana
9.  Zamykać the VB Redaktor

To

1.  Wybiórka lub otwierać wiadomość
2.  Biegać the makro- CShene

Alternatywa być the kod nieznacznie ono od reguła.
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

Okręt podwodny CShene ()
    Ciemnawy olkMsg Jako Outlook.MailItem, strIncidentNumber Jako Sznurek, strStatus Sznurek, varLine Jako Wariant, _
        arrLine Jako Wariant, objFSO Jako Przedmiot, objFile Przedmiot
    Wybrany Skrzynka TypeName (Application.ActiveWindow)
        Skrzynka "Badacz"
            Ustalony olkMsg = Application.ActiveExplorer.Selection (1)
        Skrzynka "Inspektor"
            Ustalony olkMsg = Application.ActiveInspector.CurrentItem
    Końcówka Wybiórka
    Dla VbCrLf varLine W Rozłam (olkMsg.Body, vbCrLf)
        arrLine = Rozłam (varLine, ": ")
        Jeżeli UBound (arrLine) > (0) Wtedy
            Wybrany Skrzynka arrLine ((0))
                Skrzynka "Incydent Liczba"
                    strIncidentNumber = arrLine (1)
                Skrzynka "Status"
                    strStatus = arrLine (1)
                    Wyjście Dla
            Końcówka Wybiórka
        Kończyć Jeżeli
    Następnie
    Ustalony objFSO = CreateObject ("Scripting.FileSystemobject")
    "Na the następny kreskowy zmiana the kartoteka - imię i ścieżka."
    Ustalony objFile = objFSO.OpenTextFile ("C:\eeTesting\CShene.txt", ForAppending, Prawdziwy)
    objFile.WriteLine GetPrintable (strIncidentNumber) & "," & GetPrintable (strStatus)
    objFile.Close
    Ustalony objFSO = Nic
    Ustalony objFile = ObjFile
Końcówka Okręt podwodny

Funkcja GetPrintable (strValue Sznurek) Sznurek
    Ciemnawy intCount Jako Integer, strTemp Sznurek
    Dla intCount = (1) Len (strValue)
        strTemp = W połowie (strValue, intCount, 1)
        Wybrany Skrzynka Asc (strTemp)
            Skrzynka 32 126
                GetPrintable = GetPrintable & strTemp
        Końcówka Wybiórka
    Następnie
    GetPrintable = Podstrzyżenie (GetPrintable)
Końcówka Funkcja
Inne rozwiązania  
 
programming4us programming4us