嘿，这个问题我太熟了！我之前写VBA返回Collection的时候也踩过一模一样的坑😅。既然你已经确认集合填充没问题，那99%的概率是对象类型的赋值/返回没用到Set关键字——这是VBA处理对象时最容易犯的错误之一。

错误原因拆解 #

Collection属于VBA里的对象类型，和普通的字符串、数值这些基本数据类型不一样。对于对象，VBA要求必须用Set关键字来完成赋值或者返回操作。如果省略了Set，VBA会把你的对象赋值操作误解成“调用某个属性”，直接抛出"Invalid use of property"的编译错误——哪怕你的集合已经完美填充好了，这一步的语法错误还是会让代码通不过编译。

举个典型的错误代码例子（大概率就是你写的情况）：

Function GetMyCollection() As Collection
    Dim col As New Collection
    ' 这里是正确的填充逻辑，你已经验证过没问题
    col.Add "Item1"
    col.Add "Item2"
    ' 错误！返回对象时没加Set
    GetMyCollection = col
End Function

或者调用函数的时候也犯了同样的错：

Sub Test()
    Dim myCol As Collection
    ' 错误！给对象变量赋值没加Set
    myCol = GetMyCollection()
End Sub

最优修复方案 #

只需要补全两处的Set关键字就行，分两步：

1. 函数内部返回集合时添加Set #

修正后的函数代码：

Function GetMyCollection() As Collection
    Dim col As New Collection
    ' 你的填充逻辑保持不变
    col.Add "Apple"
    col.Add "Banana"
    col.Add "Cherry"
    ' 关键：用Set返回对象类型
    Set GetMyCollection = col
End Function

2. 调用函数给对象变量赋值时添加Set #

调用代码也要同步修正：

Sub TestCollection()
    Dim resultCol As Collection
    ' 调用时必须用Set给对象变量赋值
    Set resultCol = GetMyCollection()
    
    ' 你之前的遍历验证逻辑可以正常运行
    Dim item As Variant
    For Each item In resultCol
        Debug.Print item
    Next item
End Sub

这样修改后，编译错误会直接消失，你的集合也能正常返回和使用啦。

内容的提问来源于stack exchange，提问作者Maldred