VBA读取txt为string 批量读取

VBA (Visual Basic for Applications) 是一种宏语言，用于Microsoft Office应用程序，包括Excel、Word等。如果你需要批量读取.txt文件的内容，并将其转换为字符串数组，可以按照以下步骤操作：

1. 创建一个新的模块（Module）：
在VBA编辑器中，选择“插入”->“模块”，然后编写代码。

2. 使用`FileSystemObject`读取文本文件：
使用VBA提供的`FileSystemObject`类，你可以打开并逐行读取文本文件内容。例如：

Sub ReadTXTFile()
    Dim fs As FileSystemObject
    Dim fileStream As TextStream
    Dim filePath As String
    Dim lines() As String

    ' 指定要读取的文件路径
    filePath = "C:\path\to\your\textfile.txt"
    
    Set fs = New FileSystemObject
    Set fileStream = fs.OpenTextFile(filePath, ForReading)

    ' 读取文件内容到字符串数组
    ReDim lines(LBound(fileStream_LINES) To UBound(fileStream_LINES))
    lines = Split(fileStream.ReadAll, vbCrLf) ' 分割行

    ' 关闭流和释放对象
    fileStream.Close
    fs.DeleteObject fileStream
    fs.Quit

    ' 现在lines数组包含了所有文本文件的行
    ' 你可以遍历这个数组做进一步处理
End Sub