シートオブジェクトをコレクションに追加すると、RTE 438オブジェクトがこのメソッドをサポートしません。

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オブジェクトはこのプロパティまたはメソッドをサポート doesntのランタイムエラーがスローされます。
これで私を助けてもらえますか？コレクションオブジェクトにオブジェクト型を追加することは可能ですか？どうやって？

Answer 1

カッコ

SheetsCollection.Add wbTested.Sheets(1) 

を削除