今使っているファイル名を取得する記述方法です。
sub 今のファイル名を取得()ファイル名 = ActiveWorkbook.Name
MsgBox ファイル名
end sub
異なるエクセルファイルを選択する
Windows("エクセルファイル名.xlsx").Activate
異なるシートを選択する
Sheets("シート名").Select
sub 今のファイル名を取得()ファイル名 = ActiveWorkbook.Name
MsgBox ファイル名
end sub
Windows("エクセルファイル名.xlsx").Activate
Sheets("シート名").Select
コメント