我无法对文件夹中的所有工作簿运行VBA宏

Sub RunMacroInAllWorkbooks()
    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
        ' 检查文件类型是否为Excel文件
        If fso.GetExtensionName(file.Name) = "xls" Or fso.GetExtensionName(file.Name) = "xlsx" Then
            ' 打开工作簿
            Set wb = Workbooks.Open(file.Path)
            
            ' 运行VBA宏
            Application.Run "ModuleName.MacroName" ' 替换为实际的模块名和宏名
            
            ' 保存并关闭工作簿
            wb.Close SaveChanges:=True
        End If
    Next file
    
    ' 释放对象
    Set fso = Nothing
    Set wb = Nothing
    
    MsgBox "VBA宏已在所有工作簿中运行完毕。"
End Sub