【ExcelVBA】パスを指定して開いたブックの表の行数がカウントできない

Question

前提・実現したいこと

ExcelVBAで、以下の要領でマクロを作成しています。

ブックを2つ用意する(以下、それぞれブックA、ブックBとします)
→ブックAのセルC4とセルC5にブックBのフォルダパスを入力
→ブックBを開く(ファイル名はVB側に入力しています)
→ブックBの表(8行×6列、見出し行含む)の行数をカウント
→「ブックBはデータが7つあります」とダイアログボックスを表示
→ブックBを閉じる

発生している問題

ブックBの行数のカウントが上手くいきません。
本来であれば7行になるはずなのですが、
何度試しても、ブックBの行数が1になってしまいます。

該当のソースコード

Option Explicit

Sub mergecount()
    Dim filepath As String
    Dim filename As String
    Dim rownum As Long
    filepath = Range("C4").Value & "\" & Range("C5").Value & "\"
    filename = "BookB.xlsx"
    Workbooks.Open filepath & filename
    rownum = Range("A1").CurrentRegion.Rows.Count - 1
    MsgBox filename & "は" & rownum & "つのデータがあります"
    ActiveWorkbook.Close
End Sub

試したこと

ブックBで直接このマクロを実行したところ、
行数は正しくカウントされました。

Sub a()
    Dim i As Long
    i = Range("a1").CurrentRegion.Rows.Count - 1
    MsgBox i & "行"
End Sub

ブックB自体の呼び出しには成功しているので、
フォルダパスは間違っていないと思います…

さいごに

VBAはおろかプログラミング自体が初心者なので、何が原因なのか全く見当がついていません。
しかもブックBが開けないのではなく行数のカウントで詰んでいるので非常にもやもやした気分です。
どなたか原因や解決方法等をご教授いただけると幸いです。よろしくお願いします。

Comments

[jinoji]

ブックBには表のあるシート以外にもシートがあったりしますか？

[Usirow]

rownum = Workbooks("B").Worksheets(1).Range("A1").CurrentRegion.Rows.Count - 1
のようにした場合はどうなるでしょうか？

[dondonlondon]

お二方、コメントありがとうございました。
ブックBのシートは1つだけですので、VB上でワークブックを指定したら上手くいきました！

Answer 1

実は、Rangeというオブジェクトは、さらに上位のオブジェクトに所属しています
階層的に考えると

Workbookオブジェクト
  Worksheetオブジェクト
    Rangeオブジェクト

という感じになります
そのため、別のシートや別のブックを操作する際には「どのブック、どのシート」のように指定する必要があります
今回の例でいうと、（Usirowさんの言うように）Workbooks(filename).Sheets(1).Range("A1").....というように指定する必要があるかと思われます（シートが複数存在する場合はシートについてもしっかり指定する必要があります）
ブック名、シート名による指定やインデックスによる指定など、いくつかの指定方法がありますので、気になったら調べていただければと思います

Comments

[dondonlondon]

出来ました！
別ファイルのブックを開く際は、Rangeオブジェクトの上層のオブジェクトを指定する必要があるのですね。勉強になりました。
丁寧な回答ありがとうございました。