VBA遍历文件夹XLSM文件未进入Do循环问题排查求助

核心问题分析 #

你代码里的Do循环未执行，本质是Dir(folderPath & "*.xlsm*")返回了空字符串，导致循环条件fileName <> ""不成立。以下是具体排查点和修复方案：

• 通配符错误
  你使用的"*.xlsm*"会匹配文件名中包含.xlsm的所有文件（比如data.xlsm.bak），但标准.xlsm文件应该用精确通配符"*.xlsm"，多余的星号会导致匹配不到目标文件，直接返回空。

• 文件夹路径格式问题
  若folderPath末尾没有反斜杠\，拼接后会变成C:\Test*.xlsm这类无效路径，Dir无法识别。必须确保路径末尾带有\，可以通过代码自动补全：

  If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\"
  

• 文件权限或属性问题
  检查目标文件夹中的.xlsm文件是否为隐藏属性，或者当前用户是否有读取该文件夹的权限。隐藏文件默认不会被Dir函数检索到，需调整文件属性或使用Dir(folderPath & "*.xlsm", vbHidden)来包含隐藏文件。

• Dir函数上下文冲突
  若代码执行前已经调用过Dir函数且未完成遍历，会导致后续Dir调用异常。可以在循环前重置Dir状态，或者确保之前的Dir操作已完成。

修正后的完整代码片段 #

Dim folderPath As String, fileName As String
Dim wb As Workbook

' 示例路径，确保末尾带反斜杠
folderPath = "C:\YourFolderPath\"
' 自动补全反斜杠（可选）
If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\"

' 遍历所有xlsm文件
fileName = Dir(folderPath & "*.xlsm")
Do While fileName <> ""
    Set wb = Workbooks.Open(folderPath & fileName)
    MsgBox ("you have opened a workbook")
    
    ' 此处添加你的数据汇总逻辑
    
    ' 关闭工作簿，避免占用
    wb.Close SaveChanges:=False
    ' 获取下一个文件名，必须添加这步才能继续循环
    fileName = Dir
Loop

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