Setting Class Object Array Property

Question

I'm trying to set a property of an object which is part of a class object array, for excel in VBA.

The code looks like this:

Dim myClass(5) as class1
Dim i as integer

For i = 0 to 5
    set myClass(i) = New class
    myClass(i).myProperty = "SomeValue"
Next i

Class code is simply:

Private pmyProperty as string

Public Property Let myProperty(s as string)
    pmyProperty = s
End Property
Public Property Get myProperty() as string
    myProperty = pmyProperty
End Property

However when I run this, I get a compile error "expected: list separator." This hits on the myClass(i).myProperty = "SomeValue" line.

How do I set the value of a property of an class object that is part of an array?

Any help would be great!

So the actual code is as follows...

Module code:

Public Sub main_sb_BillingApp()


    Dim intCountComplete As Integer
    Dim intLastRow As Integer
    Dim Line() As clsLine
    Dim i As Integer, x As Integer

    intCountComplete = WorksheetFunction.CountIf(Sheets(WS_NAME).Columns(COL_W_COMPLETE), "Yes")
    intLastRow = Sheets(WS_NAME).Cells(LAST_ROW, COL_W_COMPLETE).End(xlUp).Row - 1

    ReDim Line(intCountComplete - 1)

    For i = ROW_W_HEADER + 1 To intLastRow

        If Sheets(WS_NAME).Cells(i, COL_W_COMPLETE) = "Yes" Then

            Set Line(x) = New clsLine
            Line(x).Row = i
            x = x + 1

        End If

    Next i

End Sub

Class code:

Private pDate As Date
Private pUJN As String
Private pDesc As String
Private pCharge As Currency
Private pCost As Currency
Private pMargin As Double
Private pComplete As Boolean
Private pRow As Integer

Public Property Let Row(i As Integer)
    pRow = i
    Update
End Property
Public Property Get Row() As Integer
    Row = pRow
End Property

Private Sub Update()

    With Sheets(WS_NAME)

        pDate = .Cells(pRow, COL_W_DATE)
        pUJN = .Cells(pRow, COL_W_UJN)
        pDesc = .Cells(pRow, COL_W_DESC)
        pCharge = .Cells(pRow, COL_W_CHARGE)
        pCost = .Cells(pRow, COL_W_COST)
        pMargin = .Cells(pRow, COL_W_MARGIN)

        If .Cells(pRow, COL_W_COMPLETE) = "Yes" Then
            pComplete = True
        Else
            pComplete = False
        End If

    End With
End Sub

Is it VB.NET or vba or vbscript?

Ňɏssa Pøngjǣrdenlarp
– Ňɏssa Pøngjǣrdenlarp

2017-02-20 15:33:50 +00:00
Commented Feb 20, 2017 at 15:33 — Ňɏssa Pøngjǣrdenlarp
– Ňɏssa Pøngjǣrdenlarp, Commented Feb 20, 2017 at 15:33
show relevant class code

user3598756
– user3598756

2017-02-20 15:34:36 +00:00
Commented Feb 20, 2017 at 15:34 — user3598756
– user3598756, Commented Feb 20, 2017 at 15:34
The code I'm using is VBA for excel.

Nicolas
– Nicolas

2017-02-20 15:48:11 +00:00
Commented Feb 20, 2017 at 15:48 — Nicolas
– Nicolas, Commented Feb 20, 2017 at 15:48
Added the class code.

Nicolas
– Nicolas

2017-02-20 15:48:17 +00:00
Commented Feb 20, 2017 at 15:48 — Nicolas
– Nicolas, Commented Feb 20, 2017 at 15:48
Your actual code also compiles cleanly for me.

Comintern
– Comintern

2017-02-20 15:59:23 +00:00
Commented Feb 20, 2017 at 15:59 — Comintern
– Comintern, Commented Feb 20, 2017 at 15:59

Comintern · Accepted Answer · 2017-02-20 16:07:16Z

4

Line is a VBA reserved keyword, so you're confusing the compiler. Change the name of your object array and it works just fine:

Dim lineArray() As clsLine
'...

        Set lineArray(x) = New clsLine
        lineArray(x).Row = i

answered Feb 20, 2017 at 16:07

Comintern

22.3k6 gold badges36 silver badges83 bronze badges

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

1 Comment

Nicolas Over a year ago

Changed the name and worked perfectly! Thanks for your help!

Collectives™ on Stack Overflow

Setting Class Object Array Property

1 Answer 1

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related