如何在excel工作簿的所有工作表中运行宏

对文件夹中的所有文件或Excel工作簿中的所有工作表运行宏可能是一个非常好的Excel自动化方案。例如，您使用类似的数据工作簿文件，并且想要提取数据或转换工作簿。这里有一些适用于这种情况的VBA程序，是从analystcave.com汇编的，供感兴趣的朋友参考。

在文件夹中的所有文件中运行宏。

代码如下：

这个程序来自analysiscave。com subrunonalfilesinfolder()。将文件夹名称另存为字符串将eApp另存为Excel。ApplicationDim fileName As StringDim WB As WorkbookDim ws As WorksheetDim curr ws As WorksheetDim curr WB As Wo rkbookDim fDialog As ObjectSet fDialog=Application。file dialog(msoFileDialogFolderPicker)Set curr WB=active workbookset curr ws=active sheet '选择存储所有文件的文件夹fDialog。Title="选择文件夹" fdialog . initial filename=curr WB . path如果fdialog.show=-1，则折叠。ername=fdialog . selecteditems(1)end如果“创建单个不可见的Excel处理过程集eapp=new Excel . application eapp . visible=false”则搜索文件夹中的所有文件[使用您的格式，如*。xlsx而不是*。*].Filename=dir (foldername "\ *。*)在文件名为“”时执行操作。更新状态栏以指示应用程序进度。StatusBar="正在处理" foldername " \ " file name set WB=eapp . workbooks . open(foldername " \ " filename)'…'将代码放在这里'… WB。closesavechanges:=false '关闭打开的工作簿调试。打印“foldername”文件名=dir () loopeapp。quiteteapp=nothing '清除状态栏并通知宏该应用程序。statusbar=" " msgbox "宏执行在所有工作簿中完成" End Sub此代码完成以下操作：

1.在当前工作簿路径中打开“选择文件”对话框，并要求选择一个文件夹来存储所有文件。

2.单独打开一个Excel流程(应用程序)，然后逐个打开每个文件。

3.用要在每个打开的工作簿上运行的代码替换“将代码放在此处”部分。

4.每个打开的工作簿在关闭时都不会保存更改。

在子文件夹中的所有文件中运行宏。

当您想要对文件夹中的所有Excel文件运行宏时，其中一种情况是遍历所有子文件夹来运行宏。以下内容与前面的内容几乎相同，但请注意，声明了一个全局变量fileCollection，该变量将首先用于存储子文件夹中标识的所有文件，并且仅在对存储在此VBA集合中的文件运行所有宏后使用。