VBA:如何遍历相同长度的多个变量数组并将它们转换为对象

Sub ConvertArraysToObjects()
    Dim names() As String
    Dim ages() As Integer
    Dim i As Integer
    
    ' 假设names和ages是已经赋值的数组
    
    ' 创建对象集合
    Dim objCollection As Collection
    Set objCollection = New Collection
    
    ' 遍历数组并将每个元素转换为对象
    For i = LBound(names) To UBound(names)
        Dim obj As Object
        Set obj = New Object
        
        ' 设置对象的属性
        obj.Name = names(i)
        obj.Age = ages(i)
        
        ' 将对象添加到集合中
        objCollection.Add obj
    Next i
    
    ' 使用对象集合进行后续操作
    For Each obj In objCollection
        ' 对每个对象执行操作
        Debug.Print obj.Name & " - " & obj.Age
    Next obj
End Sub