Я хотел бы скопировать 4 листа из закрытой книги со следующим кодом, хотя я хотел бы сохранить этот код в personal.xlsb, чтобы он был доступен в каждом новом экземпляре Excel WB, который я открываю. И моя проблема начинается здесь, как будто я запускаю код из personal.xlsb, он возвращает ошибку
Ошибка времени выполнения '1004': сбой метода копирования класса Sheets
и отладчик выделяет эту строку: wbSource.Worksheets(Array(1, 2, 3, 4)).Copy Before:=wbTarget.Sheets("Sheet1")
Может кто-нибудь помочь мне решить эту проблему?
Sub CopySegSheets()
Dim wbSource As Workbook
Dim wbTarget As Workbook
Dim Sht As Worksheet
Application.ScreenUpdating = False
Set wbTarget = ThisWorkbook
Set wbSource = Workbooks.Open("C:\PATH\sourcewb.xlsx")
wbSource.Worksheets(Array(1, 2, 3, 4)).Copy Before:=wbTarget.Sheets("Sheet1")
wbSource.Close
Application.ScreenUpdating = True
End Sub