Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/ms-access/4.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
在Access/Excel VBA中创建字典类型结构?_Excel_Ms Access - Fatal编程技术网

在Access/Excel VBA中创建字典类型结构?

在Access/Excel VBA中创建字典类型结构?,excel,ms-access,Excel,Ms Access,我想声明如下: dictionaryItem = {("Key1", "Value1"}, {"Key2", "Value2"} ... } 但是无法正确地获取语法。如果没有,我想创建两个具有初始值的数组(但无论我如何编写它,也无法使其工作)。在我看来,您正在描述一个脚本字典。看看这是否令人满意 Dim dct As Object Set dct = CreateObject("Scripting.Dictionary") dct.Add "Key1", "Value1" dct.Add "K

我想声明如下:

dictionaryItem = {("Key1", "Value1"}, {"Key2", "Value2"} ... }

但是无法正确地获取语法。如果没有,我想创建两个具有初始值的数组(但无论我如何编写它,也无法使其工作)。

在我看来,您正在描述一个脚本字典。看看这是否令人满意

Dim dct As Object
Set dct = CreateObject("Scripting.Dictionary")
dct.Add "Key1", "Value1"
dct.Add "Key2", "Value2"
Debug.Print dct.Count
Debug.Print dct("Key1")
Debug.Print dct("Key2")
Set dct = Nothing

是否可以使用值列表而不是单个值?字典将接受项值的数组,但不接受键的数组。