VBA常用函数及记事

来源：乌哈旅游

'记事..
Sub dictionarySample()
    Dim dic ' As New Dictionary
    Dim d As New VBA.Collection
    
    
    d.Add ("1")
    
    d.Remove (1)
    
    Set dic = CreateObject("scripting.dictionary")
    
    
    dic.Add "key", "Dictionary"
    s = dic.Item("key")
    
    'Add(key,item) 增加键/条目对到 Dictionary
    'Exists (key) 如果指定的键存在，返回 True，否则返回 False
    'Items() 返回一个包含 Dictionary 对象中所有条目的数组
    'Keys()  返回一个包含 Dictionary 对象中所有键的数组
    'Remove (key) 删除一个指定的键/条目对
    'RemoveAll() 删除全部键/条目对
    
    
    
End Sub

因篇幅问题不能全部显示，请点此查看更多更全内容

查看全文