VBA字典直接访问对象数组成员报错原因及可行方案咨询

这个问题的核心确实和成员声明方式以及VBA的对象绑定逻辑直接相关，咱们一步步拆解：

为什么直接访问会报错？ #

当你直接通过字典的g_dict_People(KeyPerson)链式访问.InAMeeting(3)时，VBA的解析逻辑会出点小问题：

• 字典的Item属性返回的是一个Variant类型的对象引用，而非明确的cls_Person实例。
• 当你紧接着访问.InAMeeting(3)时，VBA会默认把.InAMeeting当成一个「需要返回对象的属性」，试图去调用它的默认属性（比如像Range对象的默认Value属性那样）。但你的InAMeeting是存储数组的Variant，不是对象，也没有默认属性，所以就触发了Error 451。

而先赋值给临时变量时，你已经把字典返回的引用明确绑定到了cls_Person类型的变量上，VBA能清楚识别.InAMeeting是数组类型的成员，自然可以正常索引元素。

为什么访问Name成员没问题？ #

Name是String类型的简单成员，VBA在链式访问时不需要做额外的「默认属性解析」，直接就能读取这个值，所以不会出现错误。

能不能直接访问对象的数组类型成员？ #

当然可以，但需要调整声明或访问方式，这里有两个可行方案：

方案1：明确声明数组类型（维度固定时适用） #

如果你的数组维度是固定的（比如要么1-8，要么1-10，不需要动态切换），可以把InAMeeting直接声明为数组，而非Variant：

' 比如固定1-10的Double数组
Public InAMeeting(1 To 10) As Double

这样VBA能直接识别它是数组类型，链式访问g_dict_People(KeyPerson).InAMeeting(3)时就不会触发解析错误。

方案2：用Property Get/Let封装成员（动态维度适用） #

如果需要动态切换数组维度，建议把InAMeeting改成私有成员，通过Property过程封装：

Private m_InAMeeting As Variant

Public Property Get InAMeeting() As Variant
    InAMeeting = m_InAMeeting
End Property

Public Property Let InAMeeting(ByVal vValue As Variant)
    m_InAMeeting = vValue
End Property

这样链式访问时，VBA会先调用Property Get获取到数组，再执行索引操作，完全符合预期逻辑，不会再报错。

内容的提问来源于stack exchange，提问作者user3516422