excel - VBA将对象传递到另一个对象集合

Question

我有一组所有者，每个人都有自己的一组机会。

我有两个类模块，具有一堆属性的 ClmOpportunity 和具有单个名称属性的 ClmOwner 和存储 ClmOpportunity 对象的集合：

Public name As Variant
Private opps As New collection

Public Function addOpportunity(opp As ClmOpportunity)

    opp.ID = opps.Count + 1
    opps.Add opp, opps.Count + 1

End Function

这些所有者对象也存储在我的主模块的集合中。当我尝试使用 addOpportunity 函数时，如下所示：

Dim item As New ClmOpportunity

item.name = "test"

owners.item(overallOwner).addOpportunity (item)

我得到错误：

“对象不支持此属性或方法”

我对 VBA 很陌生，我不明白为什么会这样，我正在传递一个 ClmOpportunity，所以应该没问题吧？

任何帮助将不胜感激！

Answer 1

如果没有返回值，则不要使用括号...

owners.item(overallOwner).addOpportunity item

...然后您将收到“类型不匹配”错误，因为集合需要一个字符串值作为键，因此您需要调整您的addOpportunity函数（如果您不打算添加返回的可能应该是 Sub价值）