'********************************** 'Dictionary 对象,使用数组一样使用。 '存储数据键和项目对的对象。 '以键值对的方式存储。 'Key一般已整数或字符串。 'Value可以是除数据以外的任何类型。 '********************************** Dim Dic Set Dic = CreateObject("Scripting.Dictionary") '创建对象 Dic.Add "aaa","123" '添加 key 和 value Dic.Add "bbb","456" Dic.Add "ccc","789" tempValue = Dic.Items '获得 Dic 对象中的所有 Valuek,返回一个数组 For i = 0 to Dic.Count - 1 MsgBox tempValue(i) Next tempKey = Dic.Keys '获得 Dic 对象中所有 Key,返回一个数组 For i = 0 to Dic.Count - 1 MsgBox tempKey(i) Next