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