Fare vuoto una collezione di VBA

Question

Ho un problema con un oggetto Collection in Visual Basic, Aplications (usarla con Excel)

Ho questo codice cercando di svuotare un oggetto Collection che devo ri-uso:

Sub limpieza(ByRef listilla As Collection) 

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

End Sub 

Ma quando io lo chiamo con:

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

VBA mi dice che

argomento non è opzionale

e il codice non viene eseguito.

Cosa posso fare? Ho bisogno di usare questa pulizia della collezione nella parte inferiore di un ciclo che riutilizza l'oggetto Collection.

Answer 1

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) 

Si noti che ho rimosso il () intorno all'argomento.

Quando si passa byref si vuole fare questo come () provoca VBA di passare come byval di default a meno che non si aggiunge Call pure.

Questo può essere davvero frustrante poiché spesso è possibile utilizzare effettivamente lo standard subName(args) come sintassi, ma in questi tipi di problemi. Generalmente uso Call mySubName(args) per rendere le cose più chiare.

Answer 2

Se si vuole svuotare una raccolta, invece di chiamare un procedimento distinto, basta usare

Set listado = New Collection