如何同時在多個活頁簿中執行巨集？

處理多個 Excel 工作表時，通常需要在多個檔案中重複執行相同的作業或自動化任務。逐一開啟每個活頁簿來執行巨集不僅耗時費力，還容易出錯，尤其在處理大量批次檔案時更是如此。自動化此流程，是提升生產力與準確性的關鍵所在。

透過使用 VBA（Visual Basic for Applications），您能輕鬆簡化工作流程，自動在指定資料夾中的每個活頁簿執行巨集，不僅省時省力，更能確保操作的一致性。本指南將說明如何設定並運用 VBA 解決方案，讓您無需逐一手動開啟檔案，即可在多個活頁簿中順暢執行所需巨集。

此方法適用的典型情境包括：

• 對一系列月度報表套用格式設定或計算
• 在多組資料匯出檔中標準化資料清理步驟
• 批次更新範本或為舊版檔案新增結構

此批次處理方法非常適合需要在商業、教育或研究環境中處理重複性 Excel 任務的使用者。

---

使用 VBA 程式碼在多個活頁簿中執行相同巨集

若想高效地在多個活頁簿中執行相同的巨集，無需逐一手動開啟，您可以運用專為批次作業設計的 VBA 指令碼。此方法會提示您選取一個資料夾，並自動處理其中每個活頁簿檔案，適用於大多數常見的巨集自動化任務。

請依照下列步驟在多個活頁簿中套用巨集：

1. 按下並按住「Alt + F11」鍵，即可開啟「Microsoft Visual Basic for Applications」視窗。

2. 在開啟的 VBA 編輯器中，點選「插入」>「模組」以建立新模組，並將提供的巨集貼上至空白模組視窗中。

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

請參閱截圖，了解應在何處貼上您的巨集邏輯：

3. 在 VBA 編輯器中按下「F5」鍵執行指令碼，隨即會彈出資料夾選擇對話方塊。

4. 在「瀏覽」視窗中，選取包含所有待處理活頁簿的資料夾。指令碼將自動逐一處理該資料夾中的每個 Excel 檔案，並執行您設定的巨集邏輯。

5. 按一下「確定」即可啟動批次作業。您所新增的巨集區段將自動套用至所選資料夾內的所有目標活頁簿。批次規模越大，所需處理時間可能越長，實際耗時取決於巨集的複雜度與檔案數量。

---