ExcelVBAで現在アクティブなブックの名前を取得する方法

構文

構文は以下の通りです。

ActiveWorkBook.Name

解説

ActiveWorkBookは、現在表示しているExcelブックのことです。複数のExcelファイルを開いているときに、どのファイルが現在表示されているかを知りたいときに使います。

プログラミング例

具体的なプログラミング例を紹介します。

Sub 現在のブック名を表示()
    Dim ブックの名前 As String
    ブックの名前 = ActiveWorkbook.Name
    MsgBox "現在開いているブックの名前は " & ブックの名前 & " です。"
End Sub

上記のプログラムは、開いているExcelブックの名前をメッセージボックスに表示します。

まとめ

ActiveWorkBook.Nameを使うと、簡単にブックの名前を知ることができます。