Prise de vide VBA collection

J'ai un problème avec un objet de Collection dans Visual Basic pour les Demandes (je l'utilise avec Excel)

J'ai ce code d'essayer de vider un objet de Collection que j'ai ré-utilisation:

Sub limpieza(ByRef listilla As Collection)

    While listilla.Count <> 0
        listilla.Remove (listilla.Count)
    Wend

End Sub

Mais quand je l'appelle avec:

Dim listado As New Collection
<I have some code here that add some values to the collection>
limpieza (listado)

VBA me dit que

argument n'est pas facultatif

et le code ne s'exécute pas.

Que puis-je faire? J'ai besoin d'utiliser cette collection de nettoyage au fond d'une boucle qui réutilise l'objet de Collection.

OriginalL'auteur Antonio E. | 2013-05-30

  1. 11
    Dim listado As New Collection
<I have some code here that add some values to the collection>
limpieza listado
'this syntax also works
Call limpieza(listado)

    Remarque que j'ai enlevé le () autour de l'argument.

    Lors du passage de byref vous voulez faire cela comme () causes VBA passer comme byval par défaut, sauf si vous ajoutez Call.

    Cela peut être très frustrant car bien souvent, vous pouvez réellement utiliser subName(args) que la syntaxe parfois, mais ces sortes de problèmes. Je l'utilise généralement Call mySubName(args) pour rendre les choses plus claires.

    Merci vous avez résolu beaucoup de problèmes que j'ai eus avec des sous-routines, la documentation MSDN n'est pas une très bonne source d'information. Je suis un peu noob avec cette languaje

    OriginalL'auteur enderland

  2. 30

    Si vous souhaitez vider une collection, au lieu d'appeler une procédure distincte, il suffit d'utiliser

    Set listado = New Collection
    Merci, j'ai réalisé qu'il y a aussi le faire Ensemble listado = Nothing je peux faire la même chose. - Je tenir le vote sur enderlands réponse, car il a résolu plus de la procédure de problèmes o me. Voir vous.

    OriginalL'auteur Dick Kusleika