ブックのファイル名とパスを取得する

ブックのファイル名を取得するには、WorkbookオブジェクトのNameプロパティを用いる :

String型変数 = Workbookオブジェクト.Name

ブックが格納されているディレクトリを取得するにはWorkbookオブジェクトのPathプロパティ
を用いる :

String型変数 = Workbookオブジェクト.Path
 
また、フルパスを取得するにはFullnameプロパティを用いる :

String型変数 = Workbookオブジェクト.Fullname

以下に上記プロパティを使用したサンプルコードを記す :

Sub SampleGetWorkbookPathAnd Name()
     Dim bk As Workbook
     Set bk = Application.Workbooks.Open("D:\Temp\SampleWorkbook.xlsm")
     MsgBox "Workbookの名前 : " & bk.Name & vbCrLf & _
           "Workbookが格納されているディレクトリ : " & bk.Path & vbCrLf & _
           "Workbookのフルパス : " & bk.FullName 
End Sub


上記コードの実行結果は下記の通り :