小编Bip*_*ppy的帖子

啊,霍伊,

我试图通过在VBA Excel中引用它的名称属性来对自定义集合中的自定义对象执行操作.我发誓它以前工作过(或者至少没有抛出错误)现在它的kaput.invalid call or argument当我尝试Get用字符串做某事时,我收到了一个错误.也提前感谢您阅读本文,任何帮助表示赞赏.<\编辑>

这是集合:

Option Explicit

Private DRAFields As New Collection

Sub Add(Name As String, Optional colNbr As Long, Optional Exists As Boolean)
    Dim fld As New DRAFld
    fld.colNbr = colNbr
    fld.Name = Name
    fld.Exists = Exists

    DRAFields.Add fld
End Sub

Property Get Item(NameOrNumber As Variant)
    Set Item = DRAFields(NameOrNumber)  '<------- Error here
End Property

集合通过将一组名称传递给函数来添加项目,并且返回集合时没有问题.我可以使用密钥迭代.但如果得到这样的错误就会发生:Debug.Print myFlds.Item("Customer").colNbr

对象类以防万一:

Option Explicit

Private clmNbrPvt       As Long
Private namePvt         As String
Private existsPvt       As Boolean …