如何在多个工作簿中同时运行宏？

如果需要逐个打开每个文件，在多个工作簿文件中运行宏可能会非常耗时。幸运的是，通过VBA，您可以在不打开这些文件的情况下，同时对多个工作簿执行宏。本教程提供了一个分步指南，帮助您简化Excel中的这一任务。

使用VBA代码在多个工作簿中同时运行宏

使用VBA代码在多个工作簿中同时运行宏

要在不打开多个工作簿的情况下运行宏，请应用以下VBA代码：

1. 按住“ALT + F11”键以打开“Microsoft Visual Basic for Applications”窗口。

2. 点击“插入”>“模块”，并将以下宏粘贴到“模块”窗口中。

VBA代码：同时在多个工作簿上运行相同的宏：

Sub LoopThroughFiles()
    Dim xFd As FileDialog
    Dim xFdItem As Variant
    Dim xFileName As String
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    If xFd.Show = -1 Then
        xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
        xFileName = Dir(xFdItem & "*.xls*")
        Do While xFileName <> ""
            With Workbooks.Open(xFdItem & xFileName)
                'your code here
            End With
            xFileName = Dir
        Loop
    End If
End Sub

备注：在上述代码中，请复制并粘贴您自己的代码，但不要包含“Sub”开头和“End Sub”结尾部分，将其粘贴在“With Workbooks.Open(xFdItem & xFileName)”和“End With”脚本之间。参见截图：

3. 然后按“F5”键执行此代码，将弹出一个“浏览”窗口，请选择包含要应用该宏的所有工作簿的目录，参见截图：

4. 点击“确定”，所需的宏将在所有选定的工作簿中执行。