ExcelVBAで現在アクティブなブックのパスを取得する方法

構文

構文は以下の通りです。

ActiveWorkbook.Path

解説

現在アクティブになっているExcelブックのフォルダのパスを返します。

プログラミング例

具体的なプログラミング例を紹介します。

Sub ブックのパスを表示()
    Dim ブックのパス As String
    ブックのパス = ActiveWorkbook.Path
    If ブックのパス <> "" Then
        MsgBox "このブックのパスは: " & ブックのパス
    Else
        MsgBox "このブックはまだ保存されていません。"
    End If
End Sub

上記のプログラムは、アクティブなブックのパスを取得し、メッセージボックスに表示する内容です。

まとめ

ActiveWorkbook.Pathを使用することで、現在アクティブなブックの保存場所を簡単に取得することができます。ブックが保存されていない場合、空の文字列を返すため、その場合の処理も考慮する必要があります。