複数のブック/ファイルで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に設定しました。私のファイルは、xlsxとして保存された自分のコードのMicrosoft Excel CSVファイルです。

私の質問は、上記のコードを変更して、すべてのファイルでマクロを実行する方法です。私のマクロをどこに入れる？

感謝

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