VBA宏遍历文件夹文件时如何排除指定Excel文件？

没问题，你完全可以在Do While循环里加入排除逻辑，而且这个位置非常合适——在打开文件之前判断文件名，能直接跳过不需要处理的文件，避免多余的操作。

我帮你调整了代码，核心是在循环里新增判断逻辑，跳过指定的例外文件：

修改后的完整代码 #

Sub macro()
    Dim ws As Worksheet
    Dim Wb As Workbook
    Dim strFolder As String
    Dim strFil As String
    Dim FldrPicker As FileDialog
    Set FldrPicker = Application.FileDialog(msoFileDialogFolderPicker)
    
    With FldrPicker
        .Title = "Select A Target Folder"
        .AllowMultiSelect = False
        If .Show <> -1 Then Exit Sub
        myFolder = .SelectedItems(1) & "\"
    End With
    
    strFolder = myFolder
    strFil = Dir(strFolder & "*.xls*") ' 去掉多余的斜杠，避免路径重复
    
    Do While strFil <> vbNullString
        ' 新增：判断当前文件是否在排除列表中
        If strFil = "Exception1.xlsx" Or strFil = "Exception2.xlsx" Then
            strFil = Dir ' 获取下一个文件，直接进入下一轮循环
            GoTo NextFile
        End If
        
        Set Wb = Workbooks.Open(strFolder & strFil)
        For Each ws In Worksheets
            ' 这里放你的业务处理代码
        Next ws
        Wb.Save
        Wb.Close False
        
NextFile:
        strFil = Dir
    Loop
End Sub

关键细节说明 #

• 排除逻辑放在打开文件之前，避免了不必要的文件打开/关闭操作，提升效率；
• 用GoTo NextFile跳转到循环末尾是VBA里替代“Continue”的常用写法，能直接进入下一轮循环；
• 顺便修正了原代码里的路径斜杠问题：myFolder已经加了\，所以Dir(strFolder & "\*.xls*")会生成\\的重复斜杠，虽然系统大多能兼容，但规范写法更稳妥。

如果之后需要排除更多文件，推荐用数组来管理排除列表，扩展性更强：

' 定义排除文件数组，新增文件直接加在这里即可
Dim excludeFiles As Variant
excludeFiles = Array("Exception1.xlsx", "Exception2.xlsx", "Exception3.xlsx")

' 在循环里的判断逻辑改为：
Dim isExcluded As Boolean
isExcluded = False
For Each file In excludeFiles
    If strFil = file Then
        isExcluded = True
        Exit For
    End If
Next
If isExcluded Then
    strFil = Dir
    GoTo NextFile
End If

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