在VBA中逐行读取和解析文本文件-代码可以一次读取所有内容

Sub ReadAndParseTextFile()
    Dim fso As Object
    Dim file As Object
    Dim filePath As String
    Dim textLine As String
    
    ' 设置文件路径
    filePath = "C:\path\to\your\textfile.txt"
    
    ' 创建FileSystemObject对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 打开文本文件
    Set file = fso.OpenTextFile(filePath)
    
    ' 逐行读取和解析文本文件
    Do While Not file.AtEndOfStream
        ' 读取一行文本
        textLine = file.ReadLine
        
        ' 解析文本行，可以根据具体需求进行处理
        ' 例如，将文本行按照特定分隔符拆分成多个字段
        Dim fields() As String
        fields = Split(textLine, ",")
        
        ' 对每个字段进行处理
        For Each field In fields
            ' 处理逻辑
            ' ...
        Next field
    Loop
    
    ' 关闭文件
    file.Close
    
    ' 释放对象
    Set file = Nothing
    Set fso = Nothing
End Sub