VBAで別のブックの各シートの要素番号を取得する

現場で使うものなのであまり参考にしないでください

欠点としては、取得したいexcelブックを開いていないとエラー発火
開いていなくてもイベント発生時強制的に開くこともできるが、今回は割愛。
またハイパーリンクを使用していないので、ローカルでないと使用できない。

Sub shuukei()
    'シートネームを格納する配列を定義
    Dim sheetNames As Variant
    Dim i As Integer
    i = 0
    'フォーイーチ用変数
    Dim sheetName
    '各シートの最後の要素番号
    Dim arr() As Long
    '一時要素番号を格納する変数
    Dim selLength
    Dim ran As Range
    Dim num As Integer
    num = 0
    'ここで各シートの名前を配列に記述
    sheetNames = Array("Sheet1", "Sheet2", "Sheet3")
    '格納する配列の要素数を指定｡ここでは2
    ReDim arr(2)
    'エラーの際発火
    On Error GoTo errlabel
    
    For Each sheetName In sheetNames
        '現場では2マス先から入力しているので末尾に２を引く
        'text.xlsxと指定しているがここは取得したいブック名を指定
         selLength = Workbooks("test.xlsx").Worksheets(sheetName).Cells(Rows.Count, 2).End(xlUp).Row - 2
         arr(i) = selLength
         i = i + 1
    Next
    For Each ran In Range("C3:E3")
        ran.Value = arr(num)
        num = 1 + num
    Next
    
    Exit Sub
    'エラー処理
errlabel:
      Cells(1, 1).Value = "era"
End Sub

かなり限られたとこでしか使えないが、一応残しておきます。それでは！