Это мой первый пост при переполнении стека. Я новичок в VBA, поэтому примите мои извинения за глупые вопросы. Я пытаюсь запустить следующий код, но в строке 15, где должно произойти копирование, я получаю сообщение об ошибке во время выполнения «индекс вне диапазона». Кто-нибудь может мне помочь? Большое спасибо.
Sub CpyWorksheet()
Dim workbooktarget As Workbook
Dim workbooksource As Workbook
Application.AskToUpdateLinks = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set workbooktarget = ThisWorkbook
Set workbooksource = Workbooks.Open("H:\DATA\Workbook\Source Files\Data.xlsx")
workbooksource.Worksheets("Sheet1").Copy After:=workbooktarget.Worksheets("Sheet1")
workbooksource.Close
Application.AskToUpdateLinks = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub