フォルダー内のブックに対して同じ処理を実行

Sub フォルダー内のブックに対して同じ処理を実行()

Dim フォルダー名　as string

dim ファイル名　as string

フォルダー名=thisworkbook.path & “￥”

ファイル名=dir(フォルダー名　& “*.xlsm”)

do whilw ファイル名<> “”

msgbox ファイル名

ファイル名=dir()I

loop

 

end sub