Excel VBA遍历文件夹时忽略指定文件的实现求助

你的代码里有几个关键问题导致无法忽略特定文件，还有拼写错误需要修正：

1. 忽略逻辑位置错误：你之前尝试的If Not或Case语句应该放在打开文件之前，否则文件已经被打开，再判断就失去意义了。
2. 路径匹配错误：原代码里Dir(FolderName & ".xlsx")少了通配符*，应该是*.xlsx才能遍历文件夹里所有xlsx文件。
3. 拼写错误：SaveChnges应该是SaveChanges，这个错误会导致文件无法正常保存关闭。

下面是修改后的完整代码，加入了忽略特定文件的逻辑，同时优化了代码可靠性：

Sub FileUpdate()
    ' 定义要忽略的文件名（必须带.xlsx扩展名）
    Const IGNORE_FILE_NAME As String = "需要忽略的文件.xlsx"
    
    Application.AskToUpdateLinks = False
    Application.ScreenUpdating = False
    Application.Calculation = xlManual
    
    Dim FolderName As String
    Dim Filename As String
    Dim wb As Workbook ' 用变量引用工作簿，避免依赖ActiveWorkbook
    
    FolderName = Sheets("Filepaths").Range("c22").Value
    ' 确保文件夹路径末尾有分隔符
    If Right(FolderName, 1) <> Application.PathSeparator Then
        FolderName = FolderName & Application.PathSeparator
    End If
    
    Filename = Dir(FolderName & "*.xlsx")
    Do While Len(Filename) > 0
        ' 先判断是否为要忽略的文件，是则跳过当前循环
        If Filename <> IGNORE_FILE_NAME Then
            Set wb = Workbooks.Open(FolderName & Filename)
            Call SheetUpdate
            wb.Close SaveChanges:=True ' 用变量关闭工作簿，比ActiveWorkbook更稳定
        End If
        ' 获取下一个文件
        Filename = Dir
    Loop
    
    ' 恢复Excel默认设置
    Application.AskToUpdateLinks = True
    Application.Calculation = xlAutomatic
    Application.ScreenUpdating = True ' 别忘了恢复屏幕更新
End Sub

额外扩展：忽略多个文件 #

如果需要忽略多个文件，可以改用数组匹配：

' 定义要忽略的文件数组
Dim ignoreFiles As Variant
ignoreFiles = Array("文件1.xlsx", "文件2.xlsx")
' 在循环中判断当前文件是否在忽略列表里
If IsError(Application.Match(Filename, ignoreFiles, 0)) Then
    ' 执行更新逻辑
End If

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