自分のブック名を取得と開いているブックの一覧作成｜Name｜Excel VBA

ブックの名前を取得するには、Nameプロパティを使います。

Nameプロパティを使うと、自分のブック名だけでなく開いているブック名も取得できます。

構文 ： オブジェクト.Name

「アクティブブックの保存先とブック名を取得する｜ActiveWorkbook」も参照してください。

自分のブック名を取得する

自分のブック名を取得しB2セルに表示するVBAです。


・自分のブック名は、ActiveWorkbook.Nameで取得できます。

Sub Mybookname()
    Dim sname As String
    
    sname = ActiveWorkbook.Name
    Range("B2") = sname
End Sub

実行結果のシートです。
B2セルにブック名が表示されました。

開いているブックの一覧を作成する

下のセルに移動しながらブック名を表示するVBAです。


・Workbooksとは、現在開いている全てのWorkbookオブジェクトが格納されているコレクションオブジェクトです。
・For EachでWorkbooksからWorkbookオブジェクトを取り出します。
・Cellsの行位置を＋1することで、下の行に移動しています。

Sub Mybookname()
    Dim sname As String
    Dim wbook As Workbook
    Dim lr As Long
    
    lr = 2
    For Each wbook In Workbooks
        sname = wbook.Name
        Cells(lr, 2) = sname
        lr = lr + 1
    Next
End Sub

実行結果のシートです。
通常のXLSX形式のExcelファイルだけでなく、XLSBとCSVファイルも取得できています。