Ошибка выполнения «9» при копировании рабочего листа в другую книгу

Question

Я пытаюсь написать макрос, чтобы скопировать «Sheet1» из одной книги в другую, но я продолжаю получать ошибку времени выполнения «9»: вне диапазона.

Sub CopySheetToOtherWbk() 

Dim CopyFromBook As Workbook 
Dim CopyToWbk As Workbook 
Dim ShToCopy As Worksheet 

Set CopyFromBook = Workbooks("AllBugs.xlsx") 
Set ShToCopy = CopyFromBook.Worksheets("Sheet1") 
Set CopyToWbk = Workbooks("YourFriendlyNeighborhoodTemplateWorksheet.xlsx") 

ShToCopy.Copy After:=CopyToWbk.Sheets(CopyToWbk.Sheets.Count) 

End Sub 

Подсвеченная линия - «Set CopyFromBook = Рабочие книги (« AllBugs.xlsx »)». Не уверен, что я делаю неправильно здесь. Относительно новый для VBA. Любая помощь приветствуется.

Answer 1

Коллекция Workbooks относится ко всем в настоящее время открытым книгам. Если книга не открыта, вам нужно будет сделать это в первую очередь.

Set CopyFromBook = Workbooks.Open("C:\Some Location\AllBugs.xlsx")