Блог

Я пытаюсь добавить объект листа в пустую коллекцию.

Строка: SheetsCollection.Добавить (wbTested.Листы (1))

Я хочу использовать эту коллекцию листов для последующей печати их сведений в другой функции.

Код выглядит следующим образом:

 Private Sub TestPrintWorksheetsNames()

    Dim wbTested As Workbook
    Dim SheetsCollection As New Collection

    Set wbTested = Workbooks.Open(ThisWorkbook.Path amp; "/AddinFunctionsKollarBTestWB.xlsx")
    SheetsCollection.Add (wbTested.Sheets(1))

    With wbTested
        Debug.Print .Name
        Call PrintWorksheetsNames(SheetsCollection)
    End With 'wbTested

    wbTested.Close savechanges:=False
    Set wbTested = Nothing
End Sub
  

Выделенная строка выдает ошибку времени выполнения 438 Объект не поддерживает это свойство или метод.
Не могли бы вы помочь мне с этим? Можно ли добавлять типы объектов в объект коллекции? Как?

удалите скобки

 SheetsCollection.Add wbTested.Sheets(1)