Создание списка объектов

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 

Answer 2

Sub Tester() 

    Dim d As Object 
    Dim o As CmyClass 
    Dim arr, k, x 

    Set d = CreateObject("scripting.dictionary") 

    arr = Array("Max", "Tim", "Fred") 

    For x = LBound(arr) To UBound(arr) 
     Set o = New CmyClass 
     'set o properties etc 
     o.Name = "Name is " & arr(x) 
     d.Add arr(x), o 
    Next x 


    For Each k In d.keys 
     Debug.Print k, d(k).Name 
    Next k 

End Sub