VBA代码仅打开首个effect00*.dat文件，如何实现批量打开？

你的代码主要有两个核心问题导致只能打开第一个匹配文件，咱们一步步拆解：

1. 变量命名冲突导致循环逻辑异常 #

你在遍历子文件夹和文件时，重复使用了集合的名称作为循环变量：

• For Each subfolders In subfolders：这里subfolders既是存储子文件夹集合的变量，又是循环迭代的变量，会覆盖原集合，导致循环无法正确遍历所有子文件夹。
• Set CurrFile = subfolders.Files + For Each CurrFile In CurrFile：同样的问题，CurrFile既用来存储文件集合，又作为循环的每个文件对象，逻辑完全混乱。

2. 打开文件时误用通配符字符串 #

当你找到符合Like MyFile条件的文件时，你用了Workbooks.Open(subfolders.Path & "\" & MyFile)——这里的MyFile是带通配符的effect00*.dat，所以Excel会自动打开该路径下第一个匹配这个通配符的文件，而不是当前循环到的那个具体文件。正确的做法是直接用当前文件对象的Path属性来获取完整路径。

修复后的完整代码 #

Sub LoopSubfoldersAndFiles()
    Dim fso As Object
    Dim parentFolder As Object
    Dim subFolder As Object ' 重命名避免冲突
    Dim fileCollection As Object ' 单独存储文件集合
    Dim currFile As Object ' 循环用的单个文件对象
    Dim MyFilePattern As String ' 明确是文件名匹配模式
    Dim wb As Workbook

    With Application
        .ScreenUpdating = False
        .EnableEvents = False
        .Calculation = xlCalculationManual
    End With

    Set fso = CreateObject("Scripting.FileSystemObject")
    ' 注意：路径如果是本地My Documents，建议用Environ("USERPROFILE") & "\My Documents\..."避免权限问题
    Set parentFolder = fso.GetFolder("\\My Documents\Output files\analysis-tool-development")
    MyFilePattern = "effect00*.dat"

    ' 遍历所有子文件夹
    For Each subFolder In parentFolder.SubFolders
        Set fileCollection = subFolder.Files
        ' 遍历当前子文件夹下的所有文件
        For Each currFile In fileCollection
            ' 检查文件名是否匹配模式
            If currFile.Name Like MyFilePattern Then
                ' 用currFile.Path直接打开当前匹配的文件
                Set wb = Workbooks.Open(currFile.Path)
                ' 如果你需要对打开的工作簿做操作，在这里添加代码
                ' 比如：wb.Worksheets(1).Range("A1").Value = "Processed"
            End If
        Next currFile
    Next subFolder

    ' 清理对象
    Set fso = Nothing
    Set parentFolder = Nothing
    Set subFolder = Nothing
    Set fileCollection = Nothing
    Set currFile = Nothing

    With Application
        .EnableEvents = True
        .Calculation = xlCalculationAutomatic
        .ScreenUpdating = True
    End With
End Sub

关键修改点说明 #

• 重命名了所有容易冲突的变量，比如parentFolder、subFolder、fileCollection，让代码逻辑更清晰，避免变量覆盖。
• 打开文件时使用currFile.Path，直接指向当前循环到的匹配文件，确保每个符合条件的文件都会被打开。
• 调整了变量名的语义，比如MyFilePattern明确表示这是文件名的匹配模式，提升代码可读性。

如果打开文件后需要执行后续操作（比如数据提取、格式处理），可以在Set wb = Workbooks.Open(currFile.Path)之后添加对应的代码逻辑哦。

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