从集合中的对象获取属性(VBA)

Sub GetPropertyFromCollection()
    Dim objCollection As Collection
    Dim objItem As Object
    
    ' 创建集合对象
    Set objCollection = New Collection
    
    ' 添加对象到集合中
    objCollection.Add "Apple", "Fruit"
    objCollection.Add "Orange", "Fruit"
    objCollection.Add "Carrot", "Vegetable"
    
    ' 获取特定对象的属性值
    Set objItem = objCollection("Fruit")
    MsgBox objItem ' 输出 "Apple"
    
    ' 或者使用索引获取对象
    Set objItem = objCollection(2)
    MsgBox objItem ' 输出 "Orange"
    
    ' 通过对象的属性获取属性值
    MsgBox objItem.Length ' 输出对象的长度属性值
    
    ' 清空集合对象
    Set objCollection = Nothing
End Sub