VBA中FreeFile上限255，批量处理超255个文件如何解决？

你的核心问题是每次打开文件后没有执行Close操作，导致文件号被持续占用。FreeFile返回的1-255范围文件号是系统给VBA的可用句柄上限，不释放的话到255个就会耗尽。

下面是几个可行的解决策略：

1. 最小改动：处理完文件立即关闭（推荐） #

只需要在文件处理循环结束后添加Close语句，释放当前文件号，让FreeFile可以重复利用：

Do While Worksheets(P1).Cells(j, 4).Value <> ""
    OpenFile = Worksheets(P1).Cells(6, 2).Value & "\" & Worksheets(P1).Cells(j, 4).Value
    i = 1
   
    lArquivo = FreeFile
    Open OpenFile For Input As lArquivo
    Do While Not EOF(lArquivo)
        i = i + 1
        Line Input #lArquivo, dummy ' 补充读取操作（仅计数行数时用Line Input跳过）
    Loop
    Close lArquivo ' 关键：释放文件号
    ' 这里添加处理i值的逻辑（比如写入到P2工作表）
    j = j + 1 ' 推进循环变量，避免死循环
Loop

这个改动最小，无需调整整体代码结构，就能支持任意数量的文件处理。

2. 改用FileSystemObject（FSO）替代传统文件操作 #

如果想彻底避开文件号管理的问题，可以用VBA的FileSystemObject组件，它的API更简洁，也没有文件号限制：

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")

Do While Worksheets(P1).Cells(j, 4).Value <> ""
    OpenFile = Worksheets(P1).Cells(6, 2).Value & "\" & Worksheets(P1).Cells(j, 4).Value
    Dim txtFile As Object
    Set txtFile = fso.OpenTextFile(OpenFile, 1) ' 1代表只读模式
    i = 1
    Do While Not txtFile.AtEndOfStream
        i = i + 1
        txtFile.SkipLine ' 对应原行数计数操作
    Loop
    txtFile.Close ' 关闭文件释放资源
    Set txtFile = Nothing
    ' 处理i值的逻辑
    j = j + 1
Loop
Set fso = Nothing

FSO是微软推荐的脚本文件操作方式，代码可读性和维护性更好。

3. 优化行数统计逻辑（如果需求仅为计数行数） #

如果代码里的i只是用来统计文件行数，完全可以不用逐行循环，用更高效的一次性读取方式：

Dim fso As Object, fileContent As String
Set fso = CreateObject("Scripting.FileSystemObject")

Do While Worksheets(P1).Cells(j, 4).Value <> ""
    OpenFile = Worksheets(P1).Cells(6, 2).Value & "\" & Worksheets(P1).Cells(j, 4).Value
    ' 一次性读取所有内容，按换行符拆分计数
    fileContent = fso.OpenTextFile(OpenFile, 1).ReadAll
    i = UBound(Split(fileContent, vbCrLf)) + 1
    ' 处理i值的逻辑
    j = j + 1
Loop
Set fso = Nothing

这种方式速度比逐行循环快很多，尤其适合大文件批量处理场景。

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