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

Question

我发现这个脚本可以循环访问文件夹中的工作簿。

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

我将我的宏设置为PERSONAL.XLSB这称为"导入"。我的文件是Microsoft Excel csv 文件，这些文件将保存在我的代码中，另存为 xlsx。

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

非常感谢

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