如何跨多個工作簿文件同時運行宏？

本文，我將討論如何在不打開文件的情況下同時跨多個工作簿文件運行宏。 以下方法可以幫助您解決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

備註：在以上代碼中，請複制並粘貼您自己的代碼，但不要 子 標題和 END SUB 之間的頁腳 與Workbooks.Open（xFdItem和xFileName） 結束 腳本。 看截圖：

3。 然後按 F5 執行此代碼的密鑰，以及一個 瀏覽 顯示窗口，請選擇一個文件夾，其中包含您要全部應用此宏的工作簿，請參見屏幕截圖：

4. 然後點擊 OK 按鈕，將立即從一個工作簿到另一個工作簿執行所需的宏。