シート番号を指定して一括で別のブックへコピーしたい

Question

ブックを2枚開いてそれぞれをメインのブックのシートの2枚目と3枚目へコピー

【困っていること】
2枚のブックのシート番号を指定してコピーしたいがエラーになってしまう


```VBA
コード

Sub 算出()
Dim path As String
Dim text1 As String 'ブック1
Dim text2 As String 'ブック2
Dim file1 As String
Dim file2 As String

path = ThisWorkbook.Worksheets(1).Cells(1, 2).Value
text1 = "ブック1自動化.xlsm"
text2 = "ブック2自動化.xlsm"

'ブック1をコピー
Workbooks.Open Filename:=path & text1
WorkSheets(3).Cells.Copy After:= ThisWorkbook.Worksheets(2).Cells
ActiveWorkbook.Close SaveChanges:=False

'ブック2をコピー
Workbooks.Open Filename:=path & text2
WorkSheets(3).Cells.Copy After:= ThisWorkbook.Worksheets(2).Cells
ActiveWorkbook.Close SaveChanges:=False

End Sub

至らないこともあると思いますが、ご教授頂けると幸いです。

Comments

[y_waiwai]

このままではコードが読みづらいので、質問を編集し、</>(コードの挿入)ボタンを押し、出てくる’’’の枠の中にコードを貼り付けてください
また、エラーが出たなら、エラーメッセージを提示しましょう
エラーメッセージは、よけいな省略翻訳しないで出たそのママをコピペで提示してください

[somechan1]

ご確認ありがとうございます。
コードを挿入ボタンので修正し、日本語などは消去致しました。
ご教授頂けると幸いです。

Answer 1

以下のようにしてください。

Option Explicit

Sub 算出()
    Dim path As String
    Dim text1 As String    'ブック1
    Dim text2 As String    'ブック2
    Dim file1 As String
    Dim file2 As String
    Dim wb1 As Workbook
    Dim wb2 As Workbook
    path = ThisWorkbook.Worksheets(1).Cells(1, 2).Value
    text1 = "ブック1自動化.xlsm"
    text2 = "ブック2自動化.xlsm"

    'ブック1をコピー
    Set wb1 = Workbooks.Open(path & text1)
    wb1.Worksheets(3).Copy before:=ThisWorkbook.Worksheets(2)

    'ブック2をコピー
    Set wb2 = Workbooks.Open(path & text2)
    wb2.Worksheets(3).Copy before:=ThisWorkbook.Worksheets(3)
    wb1.Close
    wb2.Close

End Sub

Comments

[somechan1]

作動しました。丁寧な回答ありがとうございました。