2014-01-15 43 views
0

我在Excel-VBA中創建了一個小應用程序,它接受來自用戶的輸入,應用程序以加密形式發送並向我發送輸入。
現在,我在outlook-vba中有一個宏,它負責解密並保存所需格式的數據,所以這不是問題。我需要的是我想以自定義格式從用戶打開該特定郵件,以便在不運行該腳本的情況下可以看到數據。 例如這些數據來自於這樣以自定義的形式打開outlook郵件

1~Saurav Gupta~100^2~Sachin Rana~200^ 

現在我希望它在表單中的表格形式顯示爲,說

S.No Name  Marks 
1 Saurav Gupta 100 
2 Sachin Rana 200 

任何想法,我怎麼能做到這一點?

感謝和問候 索拉夫。

回答

0

使用內置Split功能,在數據線和領域分開:

Option Explicit 

Sub SplitTest() 
    Dim sInput As String 
    Dim sLines() As String 
    Dim sFields() As String 
    Dim iLine As Integer 

    sInput = "1~Saurav Gupta~100^2~Sachin Rana~200^" 

    '***** Split sInput into lines 
    sLines = Split(sInput, "^") 

    '***** Do something with the lines 
    For iLine = 0 To UBound(sLines) - 1 
     Debug.Print sLines(iLine) 

     '***** Split each line into fields 
     sFields = Split(sLines(iLine), "~") 

     '***** Do something with the fields 
     Debug.Print "#1. " & sFields(0) & ", #2. " & sFields(1) & ", #3. " & sFields(2) 
    Next iLine 

End Sub 
+0

謝謝你的答案,但有什麼辦法,我可以建立在Outlook中對自定義窗體,然後在顯示這個當我在收件箱中雙擊該郵件時,就會顯示這些郵件嗎? – SauXlsxVBA

+0

我想你應該可以,但我現在還不知道到底是怎麼回事。如果你遇到困難,試試看另一個問題。 –

相關問題