在VBA脚本中如何遍历Collection集合对象？（附VBA示例代码）

Collection对象在VBA脚本中还是会被经常使用的。Collection对象作为一个数组，使用起来也非常方便。

一般来说，有两种方法对数组进行遍历。

一种方法是，使用索引下标来访问。

另一种方法是，直接遍历数组的元素。

这两种方法，在使用时，都非常方便。

下面介绍两种方法的示例代码供大家参考：

Sub 按钮1_Click()
    Dim coll As Collection
    Set coll = New Collection
    Dim i As Integer

    i = 1
    For i = 1 To 5
        coll.Add i
    Next

    MsgBox "这是第一种方法"
    For i = 1 To coll.Count
        MsgBox coll(i)
        '上面这一句等价于: MsgBox coll.Item(i)
    Next

    MsgBox "这是第二种方法"
    Dim itm As Variant
    For Each itm In coll
        MsgBox (itm)
    Next
End Sub

注意，在使用for each遍历Collection对象时，接收item的变量要定义为Variant类型。

【点此下载示例源代码文件】