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