将图表对象添加到集合会导致RTE 438-Object不支持此方法

我试图添加一个表格对象到一个空白的集合。

Line：SheetsCollection.Add（wbTested.Sheets（1））

我想用这个表单集合在稍后的另一个函数中打印他们的细节。

代码如下所示：

Private Sub TestPrintWorksheetsNames() Dim wbTested As Workbook Dim SheetsCollection As New Collection Set wbTested = Workbooks.Open(ThisWorkbook.Path & "/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对象不支持此属性或方法 。
你能帮我吗？ 是否有可能将对象types添加到集合对象？ 怎么样？

Answer 1

删除括号

 SheetsCollection.Add wbTested.Sheets(1)