office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

VBA字典dictionary的Items方法示例

2020-04-28 08:00:00
zstmtony
原创
173

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。这是数组的默认形式。

分享