创建对象列表

Question

嗨，我可以使用变量来创建对象吗？我有一个包含多个名称的数组，对于每个名称，我想创建一个对象。所以我已经("Max", "Tim", "Fred") 并且想要遍历该数组，结果我得到类似于这样做的手册

Dim Max as CmyClass
Dim Tim as CmyClass
Dim Fred as CmyClass

（如果这与所有良好的编程习惯背道而驰，请告诉我如何正确地做到这一点）

谢谢

Answer 1

据我所知，这并不反对良好的编程，但是您需要一些东西来存储对象，在 VBA 的情况下，它是一个数组或一个集合。

像这样的东西

Sub test()
    Dim col As Collection

    Set col = New Collection

    For i = 0 To 4
        Dim Name As Class1
        Set Name = New Class1
        col.Add Name, "test" & i
    Next i
End Sub