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

本站所有内容均为原创,本站保留所有权利。在保留原始来源链接的情况下,允许非商业用途的转载。拒绝一切商业性转载。

picture loss