Sub 今のアクティブファイルの格納フォルダまでのパスを取得する() フォルダパス = ActiveWorkbook.Path & "\" MsgBox フォルダパス End Sub 'テスト時のフルパスは「C:\test\テスト.xlsm」