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

ブックを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

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

y_waiwai

2022/06/12 23:18

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

somechan1

2022/06/13 01:59

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

行動規範の内容に同意します

回答1件

ベストアンサー

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

VBA
1Option Explicit
2
3Sub 算出()
4    Dim path As String
5    Dim text1 As String    'ブック1
6    Dim text2 As String    'ブック2
7    Dim file1 As String
8    Dim file2 As String
9    Dim wb1 As Workbook
10    Dim wb2 As Workbook
11    path = ThisWorkbook.Worksheets(1).Cells(1, 2).Value
12    text1 = "ブック1自動化.xlsm"
13    text2 = "ブック2自動化.xlsm"
14
15    'ブック1をコピー
16    Set wb1 = Workbooks.Open(path & text1)
17    wb1.Worksheets(3).Copy before:=ThisWorkbook.Worksheets(2)
18
19    'ブック2をコピー
20    Set wb2 = Workbooks.Open(path & text2)
21    wb2.Worksheets(3).Copy before:=ThisWorkbook.Worksheets(3)
22    wb1.Close
23    wb2.Close
24
25End Sub
26