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

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

ExcelVBAブック数

 

< スポンサーリンク >

 

構文

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

式.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ブック数

 

< スポンサーリンク >



サブコンテンツ

このページの先頭へ