如何使用VBA Excel忽略文件夹中的特定工作簿？

Sub IgnoreSpecificWorkbook()
    Dim fso As Object
    Dim folderPath As String
    Dim fileName As String
    Dim wb As Workbook
    
    ' 设置文件夹路径
    folderPath = "C:\YourFolderPath\"
    
    ' 创建FileSystemObject对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 循环遍历文件夹中的所有文件
    For Each file In fso.GetFolder(folderPath).Files
        ' 获取文件名
        fileName = file.Name
        
        ' 判断文件名是否为特定工作簿
        If fileName = "特定工作簿.xlsx" Then
            ' 如果是特定工作簿，则忽略
            GoTo NextIteration
        End If
        
        ' 打开工作簿
        Set wb = Workbooks.Open(file.Path)
        
        ' 在这里进行你的操作，例如读取数据、修改内容等
        
        ' 关闭工作簿
        wb.Close SaveChanges:=False
        
NextIteration:
    Next file
    
    ' 释放对象
    Set fso = Nothing
End Sub