无法在Excel VBA中迭代函数返回的对象

Dim data() As Variant
data = YourFunction() ' 调用返回数组的函数

Dim i As Long
For i = LBound(data) To UBound(data)
    ' 处理每个数组元素
    Debug.Print data(i)
Next i

Dim collection As Collection
Set collection = YourFunction() ' 调用返回集合的函数

Dim item As Variant
For Each item In collection
    ' 处理每个集合元素
    Debug.Print item
Next item