学习Excel技术,关注微信公众号:
excelperfect
在文件夹中所有文件上运行宏,或者在Excel工作簿中所有工作表上运行宏,这可能是一种非常好的Excel自动化方案。例如处理类似的数据工作簿文件并想要提取数据或转换该工作簿。下面给出了适用这种情况的一些VBA程序,这些程序代码整理自analystcave.com,供有兴趣的朋友参考。
在文件夹内所有文件中运行宏
代码如下:
'本程序来自于analystcave.comSub RunOnAllFilesInFolder() Dim folderName As String Dim eApp As Excel.Application Dim fileName As String Dim wb As Workbook Dim ws As Worksheet Dim currWs As Worksheet Dim currWb As Workbook Dim fDialog As Object Set fDialog =Application.FileDialog(msoFileDialogFolderPicker) Set currWb =ActiveWorkbook Set currWs = ActiveSheet '选择存储所有文件的文件夹 fDialog.Title = "选择文件夹" fDialog.InitialF