在VBA中更改嵌套字典 [英] Changing nested dictionary in VBA

问题描述

在解决方案进行一次测试时，我即将提出一个问题。所以我正在发布和回答，所以其他人可以受益。

I was about to ask a question when the solution came in one test. So I'm posting anyway and answering, so others can benefit.

问题是：

我运行下面的代码并获得运行时错误450 - 参数数量错误或属性分配无效

I run the code below and get a runtime error 450 - Wrong number of arguments or invalid property assignment

Dim data, tmpDict As Dictionary
Set data = New Dictionary
Set tmpDict = New Dictionary

data.Add 123, tmpDict

Set tmpDict = data.Item(123)
tmpDict.Add "somekey", 100
data.Item(123) = tmpDict

错误发生在最后一行。该代码被简化为专注于更改现有项目中的嵌套字典。

The error occur in last line. The code was simplified to focus on changing a nested dictionary in an already existing item.

我该如何成功？

推荐答案

解决方案可以通过以下方式实现最后3行订单：使用以下方式：

The solution can be achieved contracting the last 3 lines in just 1, using:

data.Item(123).Add "somekey", 100

而不是： / p>

instead of:

Set tmpDict = data.Item(123)
tmpDict.Add "somekey", 100
data.Item(123) = tmpDict

这篇关于在VBA中更改嵌套字典的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！