Dim dict
Set dict = CreateObject(“Scripting.Dictionary”)
‘第一种方法
k = dict.keys
v = dict.Items
For i = 0 To dict.Count – 1
key = k(i)
Value = v(i)
MsgBox key & Value
Next
‘第二种方法
Dim key
For Each key In dict.keys
msgbox dict(key)
Next
本站所有内容均为原创,本站保留所有权利。在保留原始来源链接的情况下,允许非商业用途的转载。拒绝一切商业性转载。