Excel VBA 開いているワークブックの数を取得する-Count

Excel VBAで開いている全てのブックの数を取得する記録です。

ブックを数えるには「Count」プロパティを使います。

< スポンサーリンク >

「Count」プロパティ構文

オブジェクトの数を表す長整数型 (Long) の値を返します。

式.Count

式＝ブックオブジェクトを表す変数

「Count」プロパテの使用例

開いている全てのブックの数をデバッグで表示します。

Sub test()
    Debug.Print Workbooks.Count
End Sub

ループを使って開いている全てのブックの数まで繰り返しながら、アクティブシートに開いているブック名を入力します。

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

    With ActiveSheet
        gyou = 1
        For i = 1 To Workbooks.Count
            .Cells(gyou, 1).Value = Workbooks(i).Name
            gyou = gyou + 1
        Next i
    End With
End Sub 

< スポンサーリンク >※広告先のお問い合わせは広告主様にお願いします