sub - Excel vba: número incorrecto de argumento o adición de colección de asignación de propiedad no válida

mendeley el numero de argumentos es incorrecto

Question

He estado recibiendo un

número incorrecto de argumento o colección de asignación de propiedad no válida

error desde hace mucho tiempo, pero no puede entender lo que está mal. Tengo una clase y una Collection dentro de esa clase y un Sub para agregar valores a esa colección.

Private sumLosses As Collection

Private Sub Class_Initialize() 
    Set sumLosses = New Collection
End Sub

Public Property Get getSumLosses()
    getSumLosses = sumLosses
End Property

Dentro del módulo principal:

For Each clientCopy In clientsColl
        clientCopy.getSumLosses.Add 200  ''error
        clientCopy.getSumLosses.Add (200) ''error
Next

¿Por qué falla esto y cómo agrego los artículos a la colección de una clase?

Answer 1

Necesita declarar Public Property Get getSumLosses() como una Collection y usar Set :

Private sumLosses As Collection

Private Sub Class_Initialize() 
    Set sumLosses = New Collection
End Sub

Public Property Get getSumLosses() as Collection
    Set getSumLosses = sumLosses
End Property

:)

Answer 2

sumLosses es de tipo Collection por lo tanto, es un objeto y debe Set en otra variable / función.

Con el uso de Set debería funcionar:

Public Property Get getSumLosses() As Collection
    Set getSumLosses = sumLosses
End Property

También definir la propiedad As Collection podría no ser mala idea (pero esto no causó el error).