如何在Excel VBA中将Dictionary设置为Dictionary值？

Question

我想将字典设置为字典值吗？ 但是它会抛出一个错误

“参数数量错误或属性分配无效”。

如何解决这个问题？

sub test()
Dim Dict As Scripting.Dictionary
Set Dict = New Scripting.Dictionary
Dim rows As Scripting.Dictionary
Set rows = New Scripting.Dictionary 

dict("name") = "Sarah"
dict("surname") = "Jones"

rows(dict("name")) = dict

end sub

Answer 1

Dictionary是一种对象类型，具有默认成员 。

rows(dict("name")) = dict

该分配的RHS实际上是对dict.Item调用，但没有任何参数就被调用...但是Key参数是必需的 -因此是错误的。

Set关键字消除了默认成员调用的歧义，即“是的，我的意思是对象引用本身 ”

Set rows(dict("name")) = dict