VBA如何txt按空行分行后存入数组

您好，我可以回答您的问题。在VBA中，将文本按照空行分行后存入数组可以通过以下步骤完成：

1. 使用FilesystemObject对象打开文本文件，并将文件内容读取到一个字符串变量中。

2. 使用Split函数将字符串分割成一个数组，其中每个元素对应着原始文本中的一行。

3. 遍历数组，对于每个元素，使用Trim函数去除空格和换行符，并判断该行是否为空行。如果不是空行，则将该行存入另一个数组中。

下面是具体的VBA代码示例：

Sub ReadTextFile()
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Dim ts As Object
    Set ts = fso.OpenTextFile("C:\test.txt", 1, False)

    Dim content As String
    content = ts.ReadAll

    ts.Close

    Dim lines() As String
    lines = Split(content, vbNewLine)

    Dim nonEmptyLines() As String
    Dim i As Integer

    For i = LBound(lines) To UBound(lines)
        Dim line As String
        line = Trim(lines(i))

        ' Check if the line is non-empty
        If Len(line) > 0 Then
            ReDim Preserve nonEmptyLines(UBound(nonEmptyLines) + 1)
            nonEmptyLines(UBound(nonEmptyLines)) = line
        End If
    Next i

    ' The nonEmptyLines array now contains all the non-empty lines
End Sub

这段代码通过打开名为“test.txt”的文本文件，并读取其中的内容。然后，它将文件内容按照行分割成一个字符串数组。接下来，它遍历数组，并将所有非空行存入另一个数组中。最终，nonEmptyLines数组包含了所有非空行。

希望这个解答能够对您有所帮助！