Sub 自分のファイルのファイル名を取得する() ファイル名 = ThisWorkbook.Name MsgBox ファイル名 End Sub 'テスト時のフルパスは「C:\test\テスト.xlsm」