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。這是數組的默認形式。