エクセルＶＢＡで非アクティブブックのRow取得

質問

先ほどの質問の文章がおかしかったので再度質問させていただきます。

非アクティブブックの最終行のRowを取得するマクロが
ｘｌｓ形式のファイルだと動いていたのですが、xlsm形式に変更後、エラーになってしまいました。
これは仕様の変更によるものなのでしょうか？
Activeteせずに対処する方法があれば教えて頂きたいです。

マクロを実行しているのは"2.xlsm"で、
このファイルがアクティブの状態で
"1.xls"が非アクティブです。

"2.xls"のファイルだとエラーにならないのに
"2.xlsm"のファイルだとエラーになってしまいます。

Sub ボタン1_Click()
Dim 最終行 As Long

最終行 = Workbooks("1.xls").Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row

MsgBox 最終行

End Sub

回答No.2

watabe007 · ベストアンサー

>Activeteせずに対処する方法があれば教えて頂きたいです。

With Workbooks("1.xls").Worksheets("Sheet1")
　　最終行 = .Cells(.Rows.Count, 1).End(xlUp).Row
End With

お礼

Rows.Countがアクティブシートの値を取得するという点に気づきませんでした。
ありがとうございました。

回答No.1

mt2008

再質問に気づかず、前の質問に回答してしまいました。
前の質問の回答を見てください。悪いのはRows.Countです。