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