Dim FilePath
FilePath = "D:\ThinkpadMark3\自学\filename変更_bat類\.xlsm\繰り返しCopy.xlsm"
Dim app
Set app = CreateObject("Excel.Application")
app.Visible = true
app.Workbooks.Open FilePath
app.Run "Module1.繰り返し"
app.DisplayAlerts = False
app.Workbooks.Open FilePath.save
app.Quit
Set app = Nothing