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).