ブックのパスを取得する方法を紹介します。
「ThisWorkbook.path」でフォルダパス、「ThisWorkbook.FullName」でフルパスを取得できます。
フォルダパス
Sub Example1()
Dim path As String
path = ThisWorkbook.path
MsgBox path
End Sub
実行結果
![](https://i0.wp.com/zawanii.com/wp-content/uploads/2024/04/image-5.png?resize=160%2C133&ssl=1)
フルパス
Sub Example1()
Dim path As String
path = ThisWorkbook.FullName
MsgBox path
End Sub
実行結果
![](https://i0.wp.com/zawanii.com/wp-content/uploads/2024/04/image-6.png?resize=214%2C133&ssl=1)