VBA～ワークブックの保存場所を表示しよう～Excel

ワークブックの保存場所を表示したい時は、ブック名なしのパスの場合はWorkbook.Pathプロパティ、ブック名ありのフルパスの場合はWorkbook.FullNameプロパティを使います。

開いているワークブックの保存場所の表示

ブック名なしのパス

メッセージボックスにパスを表示したい場合、MsgBox Workbooks("ブック名").Pathで表示できます。サンプル.xlsxというワークブックが開いている状態で下のコードを実行するとブック名なしのパスがメッセージボックスに表示されます。

Sub test1()
MsgBox Workbooks("サンプル.xlsx").Path
End If

フルパス

メッセージボックスにフルパスを表示したい場合、MsgBox Workbooks("ブック名").FullNameで表示できます。サンプル.xlsxというワークブックが開いている状態で下のコードを実行するとフルパスがメッセージボックスに表示されます。

Sub test2()
MsgBox Workbooks("サンプル.xlsx").FullName
End If

コードが書かれているワークブックの保存場所の表示

ブック名なしのパス

メッセージボックスにコードが書かれているワークブックのパスを表示したい場合、MsgBox ThisWorkbook.Pathで表示できます。下のコードを実行するとコードが書かれているワークブックのブック名なしのパスがメッセージボックスに表示されます。

Sub test3()
MsgBox ThisWorkbook.Path
End If

フルパス

メッセージボックスにコードが書かれているワークブックのフルパスを表示したい場合、MsgBox ThisWorkbook.FullNameで表示できます。下のコードを実行するとコードが書かれているワークブックのフルパスがメッセージボックスに表示されます。

Sub test4()
MsgBox ThisWorkbook.FullName
End If