VBA字典dictionary的Items方法示例

Items方法：

字典對(duì)象.Items( )

返回一個(gè)數(shù)組，其中包含了一個(gè) Dictionary 對(duì)象中的所有項(xiàng)目。實(shí)例運(yùn)用：

Dim d

Dim itms  

   Set d = CreateObject("Scripting.Dictionary")

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

   d.Add "b", "m.mzhfr.cn"

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

   itms=d.Items

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

    itms=d.Items ：把字典中所有的關(guān)鍵字對(duì)應(yīng)的項(xiàng)賦給變量itms。

     得到一個(gè)一維數(shù)組，下限為0，上限為d.Count-1。這是數(shù)組的默認(rèn)形式。