Microsoft Excel VBA - オープンされているブック名を取得する方法

◆概要

このページは、Excel VBAでオープンされているブック名を取得する方法について記載しています。

◆Sample

次の例では、現在開かれているすべてのブックのファイル名をワークシート sheet1 のセルＡ１から列方向に表示します。 

Sub GetOpenBookName()
    Dim myBook As Object
    Dim i As Integer

    i = 1

    For Each myBook In Workbooks
        Worksheets("sheet1").Cells(i, 1).Value = myBook.Name
        i = i + 1
    Next myBook

End Sub
　　



▼ページトップへ