VBACollection：可以获取集合属性，但不能循环遍历。错误：'对象已失效'

这个问题很容易解决，只需要将集合对象赋值给一个变量，并使用此变量遍历集合即可避免出现此错误。下面是代码示例：

Sub Example() Dim myCollection As Collection Set myCollection = New Collection

myCollection.Add "Apple"
myCollection.Add "Banana"
myCollection.Add "Cherry"

Dim i As Integer
Dim myItem As Variant

For i = 1 To myCollection.Count
    myItem = myCollection.Item(i)
    Debug.Print myItem
Next i

End Sub

在上面的示例中，我们创建了一个包含三个元素的集合并添加了一些元素。然后我们使用循环遍历了集合中的每个元素。我们没有直接使用myCollection.Item（i）来遍历集合，而是将myCollection.Item（i）的返回值存储在变量myItem中。使用这种方法，我们可以避免出现“对象已失效”的错误，因为我们使用了我们自己的变量而不是直接操作集合。