ExcelVBA。開いているワークブックの名前を取得する。

目的

• 開いているワークブックの名前を取得したい。
• 全てのワークブックの名前を取得したい。

その一例

1. 「Book1.xls」でテストしてみます。
   

Sub ワークブックの名前取得()
  Debug.Print ThisWorkbook.Name
End Sub

1. 新規ブック作成直後、保存前は以下の出力になりました。
   

全てのワークブック

開いている全てのワークブックの名前を取得してみます。

1. 「Book1.xls」「Book2.xls」「Book3.xls」が開いている状態でテストしてみます。
   

Sub 開いている全てのワークブックの名前を取得()
  Dim a As Workbook
  For Each a In Workbooks
    Debug.Print a.Name
  Next
End Sub

1. 下記マクロでも同じ結果になりました。
   

   Sub For_開いている全てのワークブックの名前を取得()
     Dim a
     For a = 1 To Workbooks.Count
       Debug.Print Workbooks(a).Name
     Next
   End Sub

   
   

テスト環境

• Windows 10（64 ビット）
• Microsoft Office Excel 2003

以上、閲覧ありがとうございました。