'このVBAを実行しているファイルのパスを取得します。
Sub 実行しているファイルのパスを取得する()
MsgBox ThisWorkbook.Path
End Sub
'現在アクティブになっているファイルのパスを取得します。
Sub アクティブなファイルのパスを取得する()
MsgBox ActiveWorkbook.Path
End Sub
'エクセルがインストールされている場所のパスを取得します。
Sub アプリケーションのパスを取得する()
MsgBox Application.Path
End Sub
'アドイン等を入れるLibraryフォルダーのパスを取得します。
Sub Libraryフォルダーへのパスを取得する()
MsgBox Application.LibraryPath
End Sub
'アドイン等を入れるUserLibraryPathフォルダーのパスを取得します。
Sub UserLibraryフォルダーへのパスを取得する()
MsgBox Application.UserLibraryPath
End Sub
'デスクトップへのパスを取得します。
Sub デスクトップへのパスを取得する()
MsgBox CreateObject("WScript.Shell").SpecialFolders("Desktop")
End Sub
'マイドキュメントへのパスを取得します。
Sub マイドキュメントへのパスを取得する()
MsgBox CreateObject("WScript.Shell").SpecialFolders("MyDocuments")
End Sub