現在アクティブなブック名を取得する【ActiveWorkbook.Name】【ExcelVBA】

構文

ActiveWorkBook.Name

ActiveWorkbook プロパティは現在最前面に表示されているブックのプロパティです。
Nameオブジェクト はオブジェクトの名前を取得します。

現在アクティブなブック名を取得するサンプルコード

Public Sub sample()
    Debug.Print ActiveWorkbook.Name 'Book1.xlsm
End Sub

注意点

• ActiveWorkbook＝現在最前面に表示されているブックです。ThisWorkbookとは異なります。
  ※ThisWorkbookはマクロを実行しているブックです。
• Book1.xlsmのように拡張子ありで取得します。拡張子なしで取得したい場合はこちらを参照。
• Book1のように拡張子なしで取得した場合は、Workbooks.Addなどで、新規ブックとして追加され、保存されていないためです。

関連記事

• ActiveWorkbook以外のブックをすべて閉じる
• Rangeからブック名を取得する(Parentプロパティ)
• Workbooks.Openと同時に変数wsに格納する