У меня возникают проблемы при создании коллекции в Excel VBA

Question

В редакторе VBA я создал новую коллекцию листов со следующим кодом:

Set Page1s = New Collection
Page1s.Add Workbook010.Sheets("1stPage")

На данный момент у меня есть только один лист в этой коллекции, который я хотел бы скопировать со следующим кодом

Workbook010.Page1s(1).Copy After:=Sheets("1stPage")

Приведенная выше строка кода генерирует ошибку времени выполнения 9, нижний индекс вне диапазона ... Я не понимаю, почему я не могу добраться до первого пункта Коллекция, которую я только что создал? Заранее благодарю за отзыв. Франц

Answer 1

Вы чрезмерно указываете копируемый объект. Это будет отлично работать:

Sub dural()
    Dim Workbook010 As Workbook
    Set Workbook010 = ThisWorkbook
    Set Page1s = New Collection

    Page1s.Add Workbook010.Sheets("1stPage")
    Page1s(1).Copy After:=Sheets("1stPage")
End Sub