在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类型。

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

【版权说明:仅允许非商业转载且请注明出处:Mac私塾 网址:http://macsishu.com】

发表评论

邮箱地址不会被公开。

Captcha Code