Excel VBA Dir()函数遍历目录文件提前中断的问题咨询与优化问询

根本原因 #

• Office共享消息队列冲突：同属Office套件的应用共享系统消息队列，运行其他Office应用（如正在编辑的Word）时，软件后台操作（自动保存、拼写检查、排版更新等）会向队列推送高优先级消息，而Dir()函数的遍历状态依赖连续的消息回调，被其他消息打断后遍历状态会被直接重置，返回空值导致While-Wend循环判定条件不满足，无报错直接退出。
• COM对象上下文抢占：打开CSV文件本质是创建Excel COM实例，其他Office应用运行时会抢占COM对象上下文资源，当上下文被抢占后，VBA后续的关闭文件、状态更新等语句无法执行，已打开的文件对应的COM对象未被正确释放，就会出现文件锁定无法关闭的问题。

规避方案 #

• 替换Dir()遍历逻辑，改用FileSystemObject（FSO）的文件集合遍历方案，FSO采用静态文件列表遍历，不依赖动态遍历状态，不会因消息队列波动被打断，示例代码：

Dim fso As Object, targetFolder As Object, file As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set targetFolder = fso.GetFolder("你的目标目录完整路径")
For Each file In targetFolder.Files
    If LCase(fso.GetExtensionName(file.Name)) = "csv" Then
        ' 此处放置原有CSV提取、汇总逻辑
    End If
Next
' 执行完成后显式释放对象
Set file = Nothing
Set targetFolder = Nothing
Set fso = Nothing

• 遍历执行前开启远程请求忽略，避免其他Office应用打断当前VBA执行，在遍历逻辑开头添加Application.IgnoreRemoteRequests = True，全部遍历完成后改回Application.IgnoreRemoteRequests = False即可，注意该设置生效期间不要手动操作Excel，避免无响应。
• 增加显式错误捕获和资源释放逻辑，将文件处理逻辑包裹在错误处理块中，无论循环是否正常退出，都统一执行打开文件的关闭、COM对象释放操作，避免文件锁定。
• 处理大量文件时，定期清空消息队列避免消息堆积，可每处理10个文件执行一次DoEvents语句，主动清空待处理的系统消息。
• 遍历执行前临时关闭Excel后台自动功能，包括自动保存、自动拼写检查、公式自动重算，处理完成后再恢复原有配置，减少内部消息触发概率。

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