如何跨多个工作簿文件同时运行宏？

网友投稿 824 2024-01-15

如何跨多个工作簿文件同时运行宏？

本文，我将讨论如何在不打开文件的情况下同时在多个工作簿文件中运行宏。以下方法可以帮助您解决Excel中的此任务。

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

若要跨多个工作簿运行宏而不打开它们，请应用以下VBA代码：

1。按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

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

Copy

备注：在以上代码中，请复制并粘贴您自己的代码，但不要小组标题和 END SUB 之间的页脚 与Workbooks.Open（xFdItem和xFileName） 和结束脚本。看截图：

3。然后按 F5 执行此代码的密钥，以及一个浏览显示窗口，请选择一个文件夹，其中包含您要全部应用此宏的工作簿，请参见屏幕截图：

4. 然后点击 OK 按钮，将立即从一个工作簿到另一个工作簿执行所需的宏。

最佳办公生产力工具

将小时转化为分钟 Kutools for Excel!

准备好增强您的 Excel 任务了吗？利用的力量 Kutools for Excel - 您终极的节省时间的工具。简化复杂的任务并像专业人士一样浏览数据。以闪电般的速度体验 Excel！

为什么需要 Kutools for Excel

🛠️ 超过 300 项强大功能: Kutools 包含 300 多项高级功能，可简化您在 1500 多种场景中的工作。

📈 卓越的数据处理能力：合并单元格、删除重复项并执行高级数据转换 - 所有这些都不费吹灰之力！

⏱️ 高效的批量操作：当你可以聪明地工作时，为什么还要付出额外的努力呢？轻松批量导入、导出、组合和调整数据。