ブックのパスを取得する方法を紹介します。
「ThisWorkbook.path」でフォルダパス、「ThisWorkbook.FullName」でフルパスを取得できます。
フォルダパス
Sub Example1()
Dim path As String
path = ThisWorkbook.path
MsgBox path
End Sub
実行結果
フルパス
Sub Example1()
Dim path As String
path = ThisWorkbook.FullName
MsgBox path
End Sub