VBA类模块数组嵌套问题：层级访问实现与编译错误排查

1. 能否直接层级访问并赋值属性？ #

可以，但前提是你在类模块中把属性定义为可读写。出现“无法为只读属性赋值”错误，是因为你只实现了Property Get（只读逻辑），没有添加Property Let（写入逻辑）。

以Wheel类为例，正确的属性定义需包含读写逻辑：

' Wheel类模块代码
Private pName As String
Private pPsi As Double

' 读取Name属性
Property Get Name() As String
    Name = pName
End Property

' 写入Name属性
Property Let Name(value As String)
    pName = value
End Property

' 读取Psi属性
Property Get Psi() As Double
    Psi = pPsi
End Property

' 写入Psi属性
Property Let Psi(value As Double)
    pPsi = value
End Property

同理，Car类需提供可访问的Wheels数组/集合属性，Garage类提供Cars数组/集合属性，且这些属性的元素是可实例化的对象。只要层级中的每个对象都正确暴露可读写属性，就能直接用garages(2).cars(15).wheels(2).Name = "Dunlop"这类语句赋值。

2. 更优实现方式 #

用Collection替代固定数组 #

固定大小的数组灵活性差，建议用Collection存储嵌套对象，支持动态增删，代码更健壮：

• Car类封装车轮集合：

' Car类模块代码
Private pWheels As Collection

Private Sub Class_Initialize()
    Set pWheels = New Collection
    ' 初始化4个车轮（按需调整数量）
    Dim i As Integer
    For i = 1 To 4
        pWheels.Add New Wheel
    Next i
End Sub

' 按索引获取车轮
Property Get Wheels(index As Integer) As Wheel
    Set Wheels = pWheels(index)
End Property

' 可选：添加车轮的方法
Sub AddWheel(newWheel As Wheel)
    pWheels.Add newWheel
End Sub

• Garage类封装车辆集合、Garages用Collection存储车库对象的逻辑与此类似。

用工厂函数简化对象创建 #

VBA没有原生构造函数，可在标准模块中编写工厂函数，一次性初始化对象属性：

' 标准模块代码
Function CreateWheel(wheelName As String, psiValue As Double) As Wheel
    Set CreateWheel = New Wheel
    CreateWheel.Name = wheelName
    CreateWheel.Psi = psiValue
End Function

' 调用示例：给某辆车的第二个车轮赋值
Set garages(2).Cars(15).Wheels(2) = CreateWheel("Dunlop", 32)

用具名属性替代索引（针对固定数量元素） #

如果每辆车固定4个车轮，直接定义具名属性比索引数组更直观，可读性更高：

' Car类模块代码
Private pFrontLeft As Wheel
Private pFrontRight As Wheel
Private pRearLeft As Wheel
Private pRearRight As Wheel

Private Sub Class_Initialize()
    Set pFrontLeft = New Wheel
    Set pFrontRight = New Wheel
    Set pRearLeft = New Wheel
    Set pRearRight = New Wheel
End Sub

Property Get FrontLeft() As Wheel
    Set FrontLeft = pFrontLeft
End Property

Property Get FrontRight() As Wheel
    Set FrontRight = pFrontRight
End Property

' 同理实现RearLeft、RearRight的Get/Let属性

调用时直接写：garages(2).Cars(15).FrontLeft.Name = "Dunlop"，无需记忆索引位置。

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