Question

我在Excel-VBA中创建了一个小应用程序，它接收来自用户的输入，然后应用程序以加密形式发送并通过电子邮件发送输入。
现在，我在outlook-vba中有一个宏来处理解密并以所需的格式保存数据，所以这不是问题。我需要的是我想以自定义格式打开来自用户的特定邮件，以便在不运行该脚本的情况下我可以看到数据。例如。数据就是这样的

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

现在我希望它以表格格式显示在表单中，比如说

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

我知道如何实现这一目标？

谢谢和问候 Saurav。

Answer 1

使用内置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

以自定义形式打开Outlook邮件

1 个答案: