Questione : Ho voluto analizzare fuori il testo nella prospettiva using VBA e conservare i valori in un foglio elettronico

Ciao, il

I ha un messaggio e un giacimento del testo secondo le indicazioni dell'immagine allegata. Questi provengono da OnTime, un prodotto da Axasoft. il

I vuole a

1) analizza fuori questo email ed estrae il numero di avvenimento using il
2) Pase il emal ed estrae il
3) aggiunge il testo “numero di avvenimento„, “la condizione„ ad un file

I del testo presuppone che questa abbia richiesto VBA, ma tutto il metodo che funziona sia benissimo.

class= del

Risposta : Ho voluto analizzare fuori il testo nella prospettiva using VBA e conservare i valori in un foglio elettronico

Qui è la mia soluzione.  Seguire queste istruzioni aggiungere il codice alla prospettiva.

1.  Iniziare la prospettiva
2.  Scattare gli attrezzi > la macro > il redattore del Visual Basic
3.  Se non già in espansione, ampliare gli oggetti di prospettiva di Microsoft Office
4.  Se non già in espansione, espandere i moduli
5.  Selezionare un modulo attuale (per esempio Module1) double-clicking su esso o generare un nuovo modulo right-clicking i moduli e selezionando l'inserto > il modulo.
6.  Copiare il codice dalla scatola del frammento di codice ed incollarlo nella lastra di vetro destra della finestra del redattore di VB della prospettiva
7.  Pubblicare il codice come stato necessario.  Ho inserito le osservazioni laddove che qualcosa ha bisogno di o che può cambiare
8.  Scattare l'icona del dischetto sull'tavoletta porta-utensili per conservare i cambiamenti
9.  Chiudere il redattore di VB

Per per usare questo

1.  Selezionare o aprire un messaggio
2.  Fare funzionare il CShene a macroistruzione

Un'alternativa è di alterare un po'il codice per allontanarselo da una regola.
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:

CShene secondario ()
    olkMsg fioco come Outlook.MailItem, strIncidentNumber come stringa, strStatus come stringa, varLine come variante, _
        di arrLine variante così, objFSO quanto oggetto, objFile come oggetto
    Selezionare il caso TypeName (Application.ActiveWindow)
        Mettere “l'esploratore„
            Regolare il olkMsg = Application.ActiveExplorer.Selection (1)
        Mettere “l'ispettore„
            Regolare il olkMsg = Application.ActiveInspector.CurrentItem
    Concludere prescelto
    Per ogni varLine nella spaccatura (olkMsg.Body, vbCrLf)
        il arrLine = ha spaccato (varLine, “: ")
        Se UBound (arrLine) > 0 allora
            Selezionare il arrLine di caso (0)
                Mettere “il numero di avvenimento„
                    strIncidentNumber = arrLine (1)
                Caso “condizione„
                    strStatus = arrLine (1)
                    Uscire per
            Concludere prescelto
        Concluder se
    Dopo
    Regolare il objFSO = CreateObject (“Scripting.FileSystemobject„)
    “Sulla linea cambiamento seguente il nome di schedario ed il percorso.„
    objFile stabilito = objFSO.OpenTextFile (“C:\eeTesting\CShene.txt„, ForAppending, allineare)
    objFile.WriteLine GetPrintable (strIncidentNumber) & “,„ & GetPrintable (strStatus)
    objFile.Close
    Regolare il objFSO = niente
    Regolar objFile = niente
Concludere il sommergibile

Funzione GetPrintable (strValue come stringa) come stringa
    intCount fioco come numero intero, strTemp come stringa
    Per intCount = 1 a Len (strValue)
        strTemp = metà di (strValue, intCount, 1)
        Selezionare il caso il CSA (strTemp)
            Casi 32 - 126
                GetPrintable = GetPrintable & strTemp
        Estremità prescelta
    Dopo
    GetPrintable = disposizione (GetPrintable)
Funzione di conclusione
Altre soluzioni  
 
programming4us programming4us