Initialize N Class Objects; VBA

Question

Working in Excel VBA, and I am trying to initialize an array of several objects of the class "CUserType", but I am having some trouble. I tried doing this in a loop, like this:

For count = 1 To size
    Dim myArray(count)   As CUserType
Next

However, it looks like VBA wants the array index to be a constant integer.

Now I am trying to do it with a separate function, like this:

Sub ititUsers(num As Integer)

Dim myArray()           As CUserType
Redim myArray(1 to num)

If num = 1 Then
    Dim myArray(1)      As CUserType
ElseIf num = 2 Then
    Dim myArray(1)      As New CUserType
    Dim myArray(2)      As New CUserType
ElseIf num = 3 Then
    Dim myArray(1)      As New CUserType
    Dim myArray(2)      As New CUserType
    Dim myArray(3)      As New CUserType
.
.
.
End Sub

But of course this is both tedious and wasteful. I am new to this, so I know I am probably missing something. Any help?

Thank you!

Paul Ogilvie · Accepted Answer · 2016-05-06 18:47:44Z

2

Your line Dim myArray(count) As CUserType is already setting all elements of the array as CUserType. If you just need to initialize it, then do a For Loop:

Sub ititUsers(num As Integer)

    Dim i As Long
    Dim myArray() As CUserType
    Redim myArray(1 to num)

    For i = 1 to num
        Set myArray(i) = New CUserType
    Next i

End Sub

edited May 6, 2016 at 18:47

Paul Ogilvie

25.3k4 gold badges25 silver badges43 bronze badges

answered May 6, 2016 at 18:23

tigeravatar

26.7k5 gold badges32 silver badges42 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Initialize N Class Objects; VBA

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related