VBA字典dictionary的Items方法示例

Items方法：

字典对象.Items( )

返回一个数组，其中包含了一个 Dictionary 对象中的所有项目。实例运用：

Dim d

Dim itms  

   Set d = CreateObject("Scripting.Dictionary")

   d.Add "a", "www.excel-cn.om"  

   d.Add "b", "www.office-cn.net"

   d.Add "c", "www.access-cn.com"

   itms=d.Items

   [D1].Resize(d.Count,1)=Application.Transpose(itms)

 

    itms=d.Items ：把字典中所有的关键字对应的项赋给变量itms。

     得到一个一维数组，下限为0，上限为d.Count-1。这是数组的默认形式。