在多个工作簿/文件上运行Excelmacros

我发现这个脚本循环在一个文件夹内的工作簿。

Sub OpenFilesVBA() Dim Wb As Workbook Dim strFolder As String Dim strFil As String strFolder = "c:\Temp" strFil = Dir(strFolder & "\*.xls*") Do While strFil <> vbNullString Set Wb = Workbooks.Open(strFolder & "\" & strFil) Wb.Close False strFil = Dir Loop End Sub 

我将我的macros存储到名为“import”的PERSONAL.XLSB中。 我的文件是Microsoft Excel CSV文件，这些文件将在我的代码中保存为xlsx。

我的问题是如何修改上面的代码来运行我的macros通过所有的文件？ 在哪里包括我的macros？

非常感谢

Answer 1

如果您想对已打开的工作簿执行某些操作，则需要Workbooks.Open函数：

 Sub OpenFilesVBA() Dim Wb As Workbook Dim strFolder As String Dim strFil As String strFolder = "c:\Temp" strFil = Dir(strFolder & "\*.csv*") Do While strFil <> vbNullString Set Wb = Workbooks.Open(strFolder & "\" & strFil) 'Add your code here Wb.Close False strFil = Dir Loop End Sub