Excel VBA导入文本文件遇错误62：如何在Do While中检测EOF？

先搞懂oCurFile <> ""的作用 #

Dir函数的工作逻辑是：

• 第一次调用带路径参数（比如Dir(filePath & "*.txt")），返回目录下第一个符合条件的文件名
• 之后不带参数调用Dir()，会依次返回下一个文件名，直到目录里没有更多文件，返回空字符串
  所以Do While oCurFile <> ""是用来循环遍历目录下所有目标文件的终止条件——只要还能拿到文件名，就继续处理。

错误62（Past End of File）的原因 #

你用Input(LOF(1), 1)一次性读取整个文件内容，这种方式依赖LOF(1)返回的文件大小完全准确。但处理大量文件时，很容易遇到：

• 文件被其他进程临时锁定，导致实际可读取的内容长度小于LOF返回值
• 损坏的空文件或异常文件（比如文件大小记录和实际内容不匹配）
• 极个别文件在读取过程中被修改/删除

正确的解决方法 #

1. 替换一次性读取为逐行读取（避免EOF越界） #

用Line Input逐行读取文件，每次读取前用Not EOF(1)判断是否到文件末尾，这是最安全的方式。

2. 增加错误捕获，跳过异常文件 #

处理几千个文件难免遇到坏文件，加错误处理避免整个宏中断。

修改后的完整代码示例 #

Sub SafeImportTextFiles()
    Dim oCurFile As String
    Dim filePath As String
    Dim fileContent As String
    Dim lineText As String
    Dim targetRow As Long
    
    ' 替换成你的目标目录
    filePath = "C:\Your_Target_Folder\"
    ' 获取第一个txt文件
    oCurFile = Dir(filePath & "*.txt")
    
    ' 定位到A列第一个空行
    targetRow = Range("A" & Rows.Count).End(xlUp).Row + 1
    
    Do While oCurFile <> ""
        On Error Resume Next ' 开启错误捕获，跳过无法处理的文件
        Open filePath & oCurFile For Input As #1
        
        ' 如果成功打开文件
        If Err.Number = 0 Then
            fileContent = ""
            ' 逐行读取，直到文件末尾
            Do While Not EOF(1)
                Line Input #1, lineText
                fileContent = fileContent & lineText & vbCrLf ' 保留换行符
            Loop
            ' 写入Excel单元格
            Cells(targetRow, 1).Value = fileContent
            targetRow = targetRow + 1
            Close #1 ' 务必关闭文件句柄
        Else
            ' 可选：把错误文件记录到B列
            Cells(targetRow, 2).Value = "处理失败：" & oCurFile
            targetRow = targetRow + 1
        End If
        
        On Error GoTo 0 ' 关闭错误捕获
        oCurFile = Dir() ' 获取下一个文件
    Loop
End Sub

为什么你改Do While为Not EOF(1)会报错？ #

EOF(1)是针对已经打开的文件句柄的判断，你错误地把它用在了Dir的遍历循环里——此时你还没打开文件，#1这个文件句柄不存在，自然会报“无效文件名”错误。EOF只能在Open文件之后使用，用来判断当前读取位置是否到了文件末尾。

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