添加到数组时，Excel VBA：参数不可选错误

我在下面的代码有问题。 每当它到达最后一行时，它会抛出错误“参数不可选”，并且不会编译。 我不知道它在说什么论据。

Option Base 1 Dim temp As New ProductionItem 'Production Item is a class that I made Dim Arr() As Collection ReDim Arr(5) Dim coll As New Collection coll.Add temp Arr(1) = coll 

Answer 1

只需要设置

 Option Base 1 Sub fun() Dim Arr() As Collection ReDim Arr(5) Dim coll As New Collection coll.Add 1 Set Arr(1) = coll End Sub