在多个工作簿/文件上运行 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