VBA字典

'字典并不存在于VBA中，需要调用
'调用方式1(前期绑定)：
'工具 --引用 - -浏览 - -找到scrrun.dll - 确定
'调用方式2 (后期绑定):
'   Set d = CreateObject("scripting.dictionary")
'编写代码时，建议使用前期绑定(写代码时有提示)，编写完成后改成后期绑定

'创建一个字典对象dict
Dim dict As New Dictionary '前期绑定
'Set dict = CreateObject("scripting.dictionary")
'方法
    'ADD(key, value)
dict.Add "k1", "v1" '往字典对象dict中添加key1=value1
dict.Add "k2", "v2"
'dict.Add "key1", "value2" 报错，不能添加相同的key

    'keys([index])方法，返回一个数组,包含了一个字典对象的全部key
arra = dict.Keys

    'items方法，返回一个数组,包含了一个字典对象的全部value
v = dict.Items

    'Exists(key)，判断字典中是否存在key，如果存在则返回true，否则返回false

is_d = dict.Exists("a1")

    '删除字典中的数据
'dict.Remove ("key") '删除某个key
'dict.RemoveAll '删除所有数据

'字典对象常用的属性，
dict.CompareMode = 0 '设置key是否区分大小写 0区分大小写，1不区分大小写 如果dict.CompareMode =1
c = dict.Count '计算条目数
dict.Key("k1") = "k3" '修改某个key的值(替换key，不是修改key对应的value) dict("k1") = "k3" 把key k1修改未k3
dict.Item("k2") = "ddd" '修改某个key的value值 dict.Item("k1") = "v3" 把k1的value修改为v3