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

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

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

構文 : オブジェクト.Name

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


Excel Tipsメニューに戻る

スポンサーリンク





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

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

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

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

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

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

下のセルに移動しながらブック名を表示するVBAです。
下のセルに移動しながらブック名を表示する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ファイルも取得できています。
XLSBとCSVファイルも取得できた

スポンサーリンク







Excel Tipsメニューに戻る

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved