ブックを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 至らないこともあると思いますが、ご教授頂けると幸いです。
まだ回答がついていません
会員登録して回答してみよう