需要添加对该对象的引用
工程菜单-->引用,找到 Microsoft Scripting Runtime,指向的文件是 %WinDir%\system32\scrrun.dll
%WinDir%表示windows安装目录。
也可以不添加该对象的引用,采用后期绑定的方法,一般机器都有该类型了。
例如:
Dim d As Object
Set d = CreateObject("Scripting.dictionary")
d.Add "abc", "1"
Debug.Print d.Count
set d=nothing '销毁
后面可以直接使用dictionary各种方法属性,后期绑定的缺点是没有各种提示