Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

ブックのパスを取得（FullName プロパティ,Path プロパティ）

2015/12/02

FullName プロパティ・Path プロパティ

ブックのパス（保存場所）を調べるには、Workbook オブジェクト の Path プロパティ や FullName プロパティ を使用します。

Path プロパティ

ブックのパス（保存先フォルダ）を取得します。通常、パスの最後に「\」はつきません。ただし、ドライブのルートの場合は「\」をつけます（「C:\」「D:\」など）。
保存されていないブックの場合は、空文字（””）を返します。

【書式】

object.Path

引数・戻り値

object ・・・対象となる Workbook オブジェクトを指定します。

FullName プロパティ

ブックのパス（保存先フォルダ）と名前を取得します。保存されていないブックの場合は、ブックの名前のみ取得します。

【書式】

object.FullName

引数・戻り値

object ・・・対象となる Workbook オブジェクトを指定します。

ブックの名前だけを取得するには、Name プロパティ を使用します（ブック・シートの名前を取得・設定（Name プロパティ）を参照）。

Path プロパティ・FullName プロパティ使用例

サンプルVBAソース

　
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

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

　

実行結果

- ブック・シートの操作 FullName プロパティ, Path プロパティ, VBA基本, Workbook オブジェクト, エクセルVBA, ブック・シートの操作

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 計算精度を設定する（PrecisionAsDisplayed プロパティ）

PrecisionAsDisplayed プロパティ PrecisionAsDi …

: シートが保護されているか確認（ProtectContents プロパティ）

ProtectContents プロパティワークシートが保護されているかどうか …

: 印刷位置を中央に設定（CenterHorizontally, CenterVertically）

PageSetup.CenterHorizontally プロパティ PageS …

: 印刷のタイトル行、タイトル列を設定（PrintTitleRows,PrintTitleColumns）

PageSetup.PrintTitleRows プロパティ PageSetup …

: ユーザー設定のドキュメントプロパティ（CustomDocumentProperties プロパティ）

CustomDocumentProperties プロパティユーザー設定のドキ …

: Excel を全画面表示（DisplayFullScreen プロパティ）

DisplayFullScreen プロパティ DisplayFullScree …

: ステータスバーにメッセージを表示（StatusBar プロパティ）

StatusBar プロパティ StatusBar プロパティで、ステータスバー …

: 別のブックのマクロを実行（Run メソッド）

別のブックのマクロを実行別のブックのマクロを実行するには、Run メソッドを …

: 印刷の用紙サイズを設定（PageSetup.PaperSize プロパティ）

PageSetup.PaperSize プロパティ PageSetup.Pape …

: ウィンドウの位置を入れ替える（ActivatePrevious メソッド、ActivateNext メソッド）

ウィンドウの位置を入れ替える ActivatePrevious メソッド、Act …

PREV: ブックの変更が保存されているかを確認する（Saved プロパティ）
NEXT: ファイル保存の既定の形式を取得・設定（DefaultSaveFormat プロパティ）