Question

我正在尝试将Sheet对象添加到空白集合中。

行：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对象不支持此属性或方法。
你能帮我解决这个问题吗？是否可以将对象类型添加到Collection Object？怎么样？

Answer 1

删除括号

SheetsCollection.Add wbTested.Sheets(1)

将Sheet对象添加到Collection会导致RTE 438-Object不支持此方法

1 个答案: