ダイアログを開いて選択したブックのシートをコピーした後、そのシートを参照しようとするとエラーが出る

Question

前提・実現したいこと

ダイアログを開いてエクセルファイルを選択した後、そのブックの中のシートをすべてコピーし、参照しようとしたのですが、下記のエラーが出てしまいます。エラーが出た後もう一度実行すると参照されるので、参照しようとしている時点ではコピーできていないようなのですが、なぜかわかりません。ダイアログが出た後はステップで進めることもできないです。

発生している問題・エラーメッセージ

オブジェクトが必要です

該当のソースコード

Public Sub aqua()

'ダイアログを開いて対象ファイルを選択
Dim FileName As String
FileName = Application.GetOpenFilename(filefilter:="Excelファイル,*.xls*", MultiSelect:=False)
'それを開いてこのブックに全シートコピー　閉じる
Dim wb As Workbook
Set wb = Workbooks.Open(FileName, UpdateLinks:=0, ReadOnly:=True, IgnoreReadOnlyRecommended:=True)
wb.Sheets().Copy After:=ThisWorkbook.Sheets(1)
Call wb.Close


 Sheet1.Cells(1, 1).Value = Sheet2.Cells(1, 1).Value

End Sub

補足情報（FW/ツールのバージョンなど）

ウィンドウズ１０　オフィス３６０です。
コピー元のファイルはシートが３枚入っています。

Answer 1

これだとうまくいくみたい。

Public Sub aqua()

'ダイアログを開いて対象ファイルを選択
Dim FileName As String
FileName = Application.GetOpenFilename(filefilter:="Excelファイル,*.xls*", MultiSelect:=False)
'それを開いてこのブックに全シートコピー　閉じる
Dim wb As Workbook
Set wb = Workbooks.Open(FileName, UpdateLinks:=0, ReadOnly:=True, IgnoreReadOnlyRecommended:=True)
wb.Sheets().Copy After:=ThisWorkbook.Sheets(1)
Call wb.Close

Call rius

End Sub

Sub rius()
 Sheet1.Cells(1, 1).Value = Sheet2.Cells(1, 1).Value
End Sub

Comments

[halmichi]

ありがとうございます。
確かに動きました。
ただ、どういう理由でこのコードだと動くのか理解できません。
そういうものだと覚えるしかないでしょうか？

[jinoji]

おそらく、プロシージャの開始時点ではSheet2というオブジェクトは存在していないので、その時点でエラーが確定していて、該当行に差し掛かったところでそれを表示しているのではないでしょうか。
別のプロシージャに分けた場合は、飛んだ先のプロシージャの開始時点ではSheet2が存在しているためエラーにならずに動く、ということかな、と。あくまで推測ですが。

ただ、たまたますり抜けているだけなので、本当は Sheets(2)とかSheets(Sheets.Count)とかSheets(シート名)とかの書き方にする方が安全だと思います。

[halmichi]

勉強になりました。ありがとうございます。

Answer 2

＜　Sheet1.Cells(1, 1).Value = Sheet2.Cells(1, 1).Value　＞

Sheet1を　Sheetｓ(1） Sheet2を Sheetｓ(2）

変更では？

Comments

[halmichi]

ありがとうございます。
参照先があれば動くのでそこは問題ないようです。

[halmichi]

すみません、上の方のコメントで理解しました。
ありがとうございます。