【Excel VBA】ブックのフルパス（保存場所とファイル名）を取得する3つのプロパティ

2025年8月11日2025年9月17日

VBAマクロで、処理中のブックと同じフォルダに新しいファイルを出力したり、開いているファイルの場所をログに記録したりする際には、そのブックの「フルパス」（ファイルの場所と名前を合わせた完全なパス）を取得する必要があります。

VBAには、このパス情報を取得するための便利なプロパティが用意されています。この記事では、.Path、.Name、そして最も便利な**.FullName**という3つの主要なプロパティの違いと使い方を解説します。

3つの主要プロパティ

ブックのパス情報を取得するには、主に以下の3つのWorkbookオブジェクトのプロパティを使い分けます。

プロパティ	取得できる情報	例 (`C:\Users\User\Documents\Report.xlsx`の場合)
`.Path`	フォルダのパス（末尾の`\`なし）	`C:\Users\User\Documents`
`.Name`	ファイル名（拡張子を含む）	`Report.xlsx`
`.FullName`	フルパス（フォルダ＋ファイル名）	`C:\Users\User\Documents\Report.xlsx`

Google スプレッドシートにエクスポート

完成したVBAコード

以下が、マクロが書かれているブックを対象に、3つのプロパティを使ってそれぞれの情報を取得し、メッセージボックスに表示するサンプルコードです。

Sub ShowWorkbookPathInfo()

    ' 変数を宣言します
    Dim targetBook As Workbook
    ' このマクロが書かれているブックを操作対象とする
    Set targetBook = ThisWorkbook

    ' --- まだ一度も保存されていないブックの場合の考慮 ---
    If targetBook.Path = "" Then
        MsgBox "このブックはまだ一度も保存されていません。", vbInformation
        Exit Sub
    End If

    ' --- 各プロパティから情報を取得 ---
    Dim folderPath As String
    Dim fileName As String
    Dim fullBookPath As String
    
    ' フォルダパスを取得 (.Path)
    folderPath = targetBook.Path
    
    ' ファイル名を取得 (.Name)
    fileName = targetBook.Name
    
    ' フルパスを取得 (.FullName) - 最も便利
    fullBookPath = targetBook.FullName
    
    ' --- 結果をメッセージボックスでまとめて表示 ---
    Dim message As String
    message = "【ブックのパス情報】" & vbCrLf & vbCrLf & _
              "フォルダパス (.Path):" & vbCrLf & folderPath & vbCrLf & vbCrLf & _
              "ファイル名 (.Name):" & vbCrLf & fileName & vbCrLf & vbCrLf & _
              "フルパス (.FullName):" & vbCrLf & fullBookPath
              
    MsgBox message, vbInformation, "パス情報"

End Sub

コードのポイント解説

① フォルダパスの取得: .Path

.Pathプロパティは、ファイルが保存されているフォルダのパスのみを返します。重要な点として、このパス文字列の末尾には円マーク（\）が含まれません。そのため、もし.Pathと.Nameを自前で連結してフルパスを作る場合は、myBook.Path & "\" & myBook.Nameのように、区切り文字を自分で追加する必要があります。