Sub 今のアクティブファイルのファイル名を取得する() ファイル名 = ActiveWorkbook.Name MsgBox ファイル名 End Sub 'テスト時のフルパスは「C:\test\テスト.xlsm」