VBA读取文本文件写入Excel工作表 运行结果异常排查

• 读取逻辑顺序错误：每条记录的第一行（账号行）被读取后，没有做任何写入处理就直接进入内层循环读取下一行，导致首行数据完全丢失。
• 列索引逻辑错误：处理每条记录内的不同行时，列索引始终从1开始计数，后续行写入会直接覆盖前序行已经填入的同列内容，无法实现同一条记录字段连续排列的效果。
• 文本清理缺失：源文件每行末尾带有大量用于填充的冗余空格，代码未做清理就直接写入，会导致单元格内容残留大量无用空白。
• 行类型判断缺失：未区分带逗号分隔符的行和不带逗号的单行内容（姓名、逾期状态描述等），所有行都强制按逗号拆分，会导致无逗号的单行内容处理逻辑错误，相关字段丢失。
• 边界判断缺失：内层循环执行读行操作前没有判断是否到达文件末尾，处理最后一条记录时容易触发“已到文件末尾”的运行时报错。

Sub ReadTextFileWithSeparators()
  Dim StrLine As String
  Dim FSO As Object
  Dim TSO As Object
  Dim StrLineElements As Variant
  Dim RowIndex As Long
  Dim ColIndex As Long
  Dim Delimiter As String
  Dim ele As Variant
  
  Set FSO = CreateObject("Scripting.FileSystemObject")
  Set TSO = FSO.OpenTextFile("C:\temp\sample.txt")
  Delimiter = ","
  RowIndex = 1
  
  Do While Not TSO.AtEndOfStream
    ' 跳过记录间的空行，定位到下一条记录的起始行
    StrLine = Trim(TSO.ReadLine)
    If StrLine <> vbNullString Then
      ColIndex = 1 ' 每条新记录从第一列开始写入
      ' 循环读取当前记录的所有行，直到碰到空行或文件结束
      Do
        If InStr(StrLine, Delimiter) > 0 Then
          ' 带分隔符的行：拆分后逐个清理空格、写入连续列
          StrLineElements = Split(StrLine, Delimiter)
          For Each ele In StrLineElements
            Cells(RowIndex, ColIndex).Value = Trim(ele)
            ColIndex = ColIndex + 1
          Next ele
        Else
          ' 不带分隔符的行：整行清理空格后作为单个字段写入
          Cells(RowIndex, ColIndex).Value = StrLine
          ColIndex = ColIndex + 1
        End If
        
        ' 提前判断文件末尾，避免读行报错
        If TSO.AtEndOfStream Then Exit Do
        StrLine = Trim(TSO.ReadLine)
      Loop While StrLine <> vbNullString
      
      RowIndex = RowIndex + 1 ' 一条记录写入完成，跳转下一行
    End If
  Loop
  
  TSO.Close
  Set TSO = Nothing
  Set FSO = Nothing
End Sub

代码运行后会自动按空行拆分每条记录，账号、姓名作为单独字段写入前两列，带逗号的行拆分后清理掉多余空格依次写入后续列，最后的逾期状态描述作为最后一个字段写入，完全匹配预期的输出格式。

内容的提问来源于stack exchange，提问作者Wasim Wani