Ошибка Excel VBA при копировании листа из книги, открытой с помощью activeworkbook.path

Question

Мне нужно скопировать сводный рабочий лист из 12 различных рабочих книг в региональную рабочую книгу. Я получаю сообщение об ошибке отладки в строке, которая должна скопировать лист в региональную книгу. Я попытался использовать как имя, так и номер листа как в исходной, так и в текущей книге. Код включен ниже.

Sub copyfc()

Dim sourceworkbook As Workbook
Dim currentworkbook As Workbook

Set currentworkbook = ThisWorkbook

Set sourceworkbook = Workbooks.Open("C:\Country Files\BE FC12 BU19.xlsx")

sourceworkbook.Sheets("BE").Copy after:=currentworkbook.Sheets("End")

sourceworkbook.Close


End Sub

Answer 1

Строка ниже поместит лист в конец:

sourceworkbook.Sheets("BE").Copy After:=currentworkbook.Sheets(currentworkbook.Sheets.Count)