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