如何将所有宏从一个工作簿导出并导入到另一个工作簿？

如果需要将多个 VBA 宏从一个工作簿迁移至另一个工作簿，通常只能逐个复制，既繁琐又耗时。本文将为您介绍一种高效方法，可快速将所有宏一次性导出到目标工作簿，并同步保存宏文件至指定文件夹。

使用 VBA 代码将所有宏从一个工作簿导出到另一个工作簿

---

使用 VBA 代码将所有宏从一个工作簿导出到另一个工作簿

要将一个 Excel 文件中的所有 VBA 宏代码导出到另一个文件，请按以下步骤操作：

1. 首先，请同时打开两个工作簿：一个包含宏，另一个是您要导入宏的目标工作簿，如下图所示：

Office Tab—在单个标签窗口中打开、阅读、编辑和管理多个 Office 文档 Office Tab 支持 Microsoft Office 应用程序的标签式浏览、编辑和管理，让您像使用 IE 8/9/10、Firefox 和 Google Chrome 等浏览器一样，在单个标签窗口中轻松打开多个文档/文件。立即点击下载并免费试用！

2. 按住 ALT + F11 键，即可打开 Microsoft Visual Basic for Applications 窗口。

3. 单击插入 > 模块，并将以下宏粘贴到模块窗口中。

VBA 代码：将所有宏从一个工作簿导出到另一个工作簿：

Sub ExportAndImportModule()
Dim xStrSWSName, xSreDWSName As String
Dim xSWS, xDWS As Workbook
xStrSWSName = "old-workbook"
xSreDWSName = "new-workbook"
Dim xFilePath As String
Dim xObjFD As FileDialog
Set xObjFD = Application.FileDialog(msoFileDialogFolderPicker)
 With xObjFD
        .AllowMultiSelect = False
        .Show
        If .SelectedItems.Count > 0 Then
            xFilePath = .SelectedItems.Item(1)
        Else
            Exit Sub
        End If
End With
On Error GoTo Err1
Set xSWS = Workbooks(xStrSWSName & ".xlsm")
Set xDWS = Workbooks(xSreDWSName & ".xlsm")
Set xvbap = xSWS.VBProject
Set xVBC = xvbap.VBComponents
For Each Module In xSWS.VBProject.VBComponents
If Module.Type = vbext_ct_StdModule Then
Module.Export (xFilePath & "\" & Module.Name & ".bas")
xDWS.VBProject.VBComponents.Import (xFilePath & "\" & Module.Name & ".bas")
End If
Next Module
Exit Sub
Err1:
    MsgBox "come to nothing!"
End Sub

注意：在上述代码中，“old-workbook” 是您要从中导出宏的工作簿名称，而 “new-workbook” 是您要导入宏的目标工作簿，请将其替换为您自己的工作簿名称。这两个工作簿都必须是 xlsm 文件类型。

4. 粘贴上述代码后，按 F5 键运行此代码，随即弹出浏览窗口，请选择一个文件夹用于存放导出的宏文件，如下图所示：

5. 然后单击确定按钮，即可将您指定工作簿中的所有宏导出至另一个 Excel 文件，并同时将宏文件保存到指定文件夹中。如下图所示：

注意：此代码仅支持导出标准模块中的宏。