如何將所有巨集從一個活頁簿完整匯出至另一個活頁簿？

若您需要將多個 VBA 巨集從一個活頁簿匯出至另一個活頁簿，通常只能逐一複製，但這樣相當耗時。本文將說明如何快速將所有巨集從來源活頁簿匯出，並一鍵儲存至指定資料夾，輕鬆完成遷移！

使用 VBA 程式碼將所有巨集從一個活頁簿匯出至另一個活頁簿

---

使用 VBA 程式碼將所有巨集從一個活頁簿匯出至另一個活頁簿

若要將所有 VBA 巨集程式碼從一個 Excel 檔案匯出至另一個檔案，請依照下列步驟操作：

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 檔案，並同步儲存至指定資料夾。如螢幕截圖所示：

注意：此程式碼僅可匯出一般模組中的巨集。