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

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

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

< スポンサーリンク >





「Count」プロパティ構文

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

式.Count

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

 

「Count」プロパテの使用例

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

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

ExcelVBAブック数

 

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

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 

ExcelVBAブック数

ExcelVBAブック数

 

 

< スポンサーリンク >