清空 VBA 集合

Question

我在 Visual Basic for Applications 中遇到了 Collection 对象的问题（我在 Excel 中使用它）

我有这段代码试图清空我必须重复使用的 Collection 对象：

Sub limpieza(ByRef listilla As Collection)

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

End Sub

但是当我调用它时：

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

VBA 对我说

参数不是可选的

代码没有运行。

我能做什么？我需要在重用 Collection 对象的循环底部使用此集合清理。

Answer 1

如果你想清空一个集合，而不是调用一个单独的过程，只需使用

Set listado = New Collection

Answer 2

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)

请注意，我删除了参数周围的()。

当传递byref 时，您希望将其作为() 执行，这会导致VBA 默认将其传递为byval，除非您也添加Call。

这真的很令人沮丧，因为您有时实际上可以使用subName(args) 作为语法，但会遇到这类问题。我一般用Call mySubName(args) 让事情更清楚。