Excel VBA 開いているファイル名を取得する-Caption

ExcelでVBAで何のExcelファイルが開いているのかを取得する記録です。

ウィンドウのタイトルバーの見出しを取得する「Caption」プロパティを使うと簡単に何のファイルを開いているかが分かります。

< スポンサーリンク >

「Caption」プロパティ構文

ドキュメントウィンドウのタイトルバーに表示される名前を表すバリアント型の値を取得または設定します。

開いているファイル名を取得する例

１番目のウィンドウの見出しを取得しメッセージで表示します。

Sub test()
    MsgBox Windows(1).Caption
End Sub

開いているすべてのウィンドウの見出しを順番に取得しメッセージで表示します。

Sub test()
    Dim cnt As Long
    Dim i As Long

    cnt = Windows.Count

    For i = 1 To cnt
        MsgBox Windows(i).Caption
    Next i
End Sub

１番目 

２番目

ウィンドウの順番は、前面に表示されている方からになります。

１番目

２番目