Items方法，在Excel Dictionary的字典里面，它的功能是返回一个数组，其中包含了一个 Dictionary 对象中的所有项目。下面为你介绍相关的知识。
object.Items( )
其中 object 总是一个 Dictionary 对象的名称。
代码示例如下：
Dim d, t
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "dzwebs"
d.Add "b", "dz37w"
d.Add "c", "netcom"
t=d.Items
[C1].Resize(d.Count,1)=Application.Transpose(t)
代码详解
1、Dim d, t ：声明变量，d见前例；t默认是可变型数据类型(Variant)。
2、t=d.Items ：把字典中所有的关键字对应的项赋给变量t。得到的也是一个一维数组，下限为0，上限为d.Count-1。这是数组的默认形式。
3、[C1].Resize(d.Count,1)=Application.Transpose(t) ：有了上面Keys方法的解释这句代码就不用多说了，就是把字典中所有的关键字对应的项赋给以C1单元格开始的单元格区域中。