FullName プロパティ・Path プロパティ
ブックのパス（保存場所）を調べるには、Workbook オブジェクト の Path プロパティ や FullName プロパティ を使用します。
Path プロパティ
ブックのパス（保存先フォルダ）を取得します。通常、パスの最後に「\」はつきません。ただし、ドライブのルートの場合は「\」をつけます（「C:\」「D:\」など）。
保存されていないブックの場合は、空文字（””）を返します。
【書式】
object.Path
引数・戻り値
- object ・・・ 対象となる Workbook オブジェクトを指定します。
FullName プロパティ
- object ・・・ 対象となる Workbook オブジェクトを指定します。
ブックのパス（保存先フォルダ）と名前を取得します。保存されていないブックの場合は、ブックの名前のみ取得します。
【書式】
object.FullName
引数・戻り値
- object ・・・ 対象となる Workbook オブジェクトを指定します。
- object ・・・ 対象となる Workbook オブジェクトを指定します。
ブックの名前だけを取得するには、Name プロパティ を使用します（ ブック・シートの名前を取得・設定（Name プロパティ） を参照 ）。
Path プロパティ・FullName プロパティ 使用例
サンプルVBAソース
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 |
Sub Sample_BookPath() Dim w1 As Workbook, w2 As Workbook 'ブックを開く Set w1 = Workbooks.Open(Filename:="C:\Documents\mybook.xlsx") '新規ブックを作成（未保存） Set w2 = Workbooks.Add 'Path プロパティ と FullName プロパティ を取得して表示 MsgBox "【既存ブック（mybook.xlsx）】" & vbCrLf & _ "Path プロパティ" & vbTab & " → " & w1.Path & vbCrLf & _ "FullName プロパティ" & vbTab & " → " & w1.FullName & vbCrLf & _ vbCrLf & _ "【新規ブック（未保存）】" & vbCrLf & _ "Path プロパティ" & vbTab & " → " & w2.Path & vbCrLf & _ "FullName プロパティ" & vbTab & " → " & w2.FullName 'ブックを閉じる w1.Close w2.Close End Sub |
実行結果
