咨询VBA中动态存储循环生成的自定义结构数据的实现方案

这个需求我之前也碰到过，VBA确实没有C#那样原生的类+List组合，但我们可以通过自定义数据结构+动态容器的组合来完美解决。下面分步骤给你详细说明：

第一步：定义你的数据结构 #

你需要先把name、price、value这三个字段封装起来，VBA里有两种常用方式：

方式1：自定义Type（简单值类型） #

适合不需要复杂逻辑的场景，直接在标准模块顶部定义：

' 放在标准模块（比如Module1）的最顶部
Type ProductInfo
    name As String
    price As Integer
    value As Integer
End Type

⚠️ 注意：Type是值类型，存储到容器里后如果要修改字段，需要先取出整个Type对象，修改后再重新放回容器。

方式2：类模块（接近C#的类，推荐） #

如果需要给字段加验证逻辑、或者希望像C#类那样用引用类型修改属性，推荐用类模块：

1. 插入一个类模块，右键重命名为clsProduct
2. 在类模块里写属性和初始化方法：

' 类模块 clsProduct 代码
Private pName As String
Private pPrice As Integer
Private pValue As Integer

' Name 属性读写
Public Property Get Name() As String
    Name = pName
End Property
Public Property Let Name(ByVal newName As String)
    pName = newName ' 可以在这里加格式验证，比如禁止空字符串
End Property

' Price 属性读写
Public Property Get Price() As Integer
    Price = pPrice
End Property
Public Property Let Price(ByVal newPrice As Integer)
    ' 简单验证：价格不能为负数
    pPrice = IIf(newPrice < 0, 0, newPrice)
End Property

' Value 属性读写
Public Property Get Value() As Integer
    Value = pValue
End Property
Public Property Let Value(ByVal newValue As Integer)
    pValue = newValue
End Property

' 可选：快速初始化方法
Public Sub Initialize(ByVal prodName As String, ByVal prodPrice As Integer, ByVal prodValue As Integer)
    Me.Name = prodName
    Me.Price = prodPrice
    Me.Value = prodValue
End Sub

这种方式是引用类型，修改容器中对象的属性时，不需要重新放回容器，直接修改即可生效。

第二步：用动态容器存储数据 #

因为不确定循环次数，我们需要用自动扩容的动态容器，VBA里常用的有两种：

选项1：VBA原生Collection（无需额外引用） #

Collection是VBA自带的动态容器，操作简单，适合基础存储需求：

Sub UseCollectionDemo()
    Dim prodCollection As New Collection
    Dim currentProd As clsProduct
    Dim i As Integer
    
    ' 模拟动态循环（这里用5次举例，实际次数可任意）
    For i = 1 To 5
        Set currentProd = New clsProduct
        ' 方式1：用初始化方法快速赋值
        currentProd.Initialize "产品" & i, i * 10, i * 20
        ' 方式2：逐个赋值属性
        ' currentProd.Name = "产品" & i
        ' currentProd.Price = i * 10
        ' currentProd.Value = i * 20
        
        ' 添加到Collection，可选指定Key方便后续快速查找
        prodCollection.Add currentProd, Key:="Prod" & i
    Next i
    
    ' 遍历读取所有数据
    Debug.Print "=== 遍历Collection ==="
    For Each currentProd In prodCollection
        Debug.Print "名称：" & currentProd.Name & " | 价格：" & currentProd.Price & " | 价值：" & currentProd.Value
    Next currentProd
    
    ' 按索引访问（Collection索引从1开始）
    Set currentProd = prodCollection(3)
    Debug.Print vbCrLf & "第三个产品：" & currentProd.Name
    
    ' 按Key访问（添加时指定了Key才可用）
    Set currentProd = prodCollection("Prod2")
    Debug.Print "Key为Prod2的产品：" & currentProd.Name
End Sub

选项2：ArrayList（功能更丰富，需引用或后期绑定） #

如果你需要排序、反转、批量移除等高级集合操作，推荐用ArrayList：

方式A：前期绑定（需要引用库）

1. 打开VBA编辑器 → 工具 → 引用 → 勾选Microsoft Scripting Runtime
2. 编写代码：

Sub UseArrayListEarlyBinding()
    Dim prodList As New ArrayList
    Dim currentProd As clsProduct
    Dim i As Integer
    
    For i = 1 To 5
        Set currentProd = New clsProduct
        currentProd.Initialize "产品" & i, i * 10, i * 20
        prodList.Add currentProd
    Next i
    
    ' 遍历数据
    Debug.Print "=== 遍历ArrayList ==="
    For Each currentProd In prodList
        Debug.Print currentProd.Name & " - 价格：" & currentProd.Price
    Next
    
    ' 按索引访问（ArrayList索引从0开始）
    Set currentProd = prodList(2)
    Debug.Print vbCrLf & "索引2的产品：" & currentProd.Name
    
    ' 高级操作：按价格排序（需要在类里实现比较逻辑，或自定义比较器）
    ' 这里简单演示排序（默认按对象引用排序，若需按字段排序需额外处理）
    prodList.Sort
    Debug.Print vbCrLf & "=== 排序后 ==="
    For Each currentProd In prodList
        Debug.Print currentProd.Name & " - 价格：" & currentProd.Price
    Next
End Sub

方式B：后期绑定（无需引用库）

不想添加引用的话，用CreateObject创建ArrayList：

Sub UseArrayListLateBinding()
    Dim prodList As Object
    Set prodList = CreateObject("System.Collections.ArrayList")
    
    ' 后续代码和前期绑定完全一致，省略重复部分...
End Sub

两种容器对比选择 #

内容的提问来源于stack exchange，提问作者n00b.exe