如何用变量键通过.Item属性修改嵌套Dictionary中的值？

当使用VBA-JSON生成嵌套Dictionary后，固定层级的成员修改可以直接通过链式调用dict(key1)(key2)...(keyN)实现，但面对动态可变的层级路径时，直接拼接字符串路径的方式会触发"Error 424: Object Required"错误——因为VBA无法将字符串解析为对象的层级引用。

解决方案：逐层定位目标父字典 #

最可靠的方式是将路径拆分为键数组，通过循环或递归逐层遍历字典，最终定位到目标成员所在的父字典，再修改对应值。

方法1：循环遍历（最直观）

编写通用子过程，接收根字典、路径数组、目标键和新值，逐层定位后更新：

Sub UpdateNestedDictValue(rootDict As Dictionary, pathArray As Variant, targetKey As String, newValue As Variant)
    Dim currentDict As Dictionary
    Set currentDict = rootDict
    
    ' 逐层遍历路径，定位到目标父字典
    Dim i As Integer
    For i = LBound(pathArray) To UBound(pathArray)
        ' 可选：添加键存在性校验，避免报错
        If Not currentDict.Exists(pathArray(i)) Then
            Err.Raise vbObjectError + 1001, , "路径键不存在: " & pathArray(i)
        End If
        Set currentDict = currentDict(pathArray(i))
    Next i
    
    ' 更新目标键的值
    currentDict(targetKey) = newValue
End Sub

调用示例：
假设需要修改Product->Dimensions->DimMM->Height的值：

Dim parsedDict As Dictionary
' 假设已通过VBA-JSON将示例JSON解析到parsedDict中

Dim path() As String
' 用逗号分隔路径，拆分后得到键数组
path = Split("Product,Dimensions,DimMM", ",")
' 执行更新
Call UpdateNestedDictValue(parsedDict, path, "Height", "1600")

方法2：递归遍历（适合深层嵌套场景）

如果字典层级极深，递归方式代码更简洁：

Function GetTargetParentDict(currentDict As Dictionary, pathArray As Variant, currentIndex As Integer) As Dictionary
    If currentIndex = UBound(pathArray) Then
        ' 到达路径最后一层，返回当前子字典
        Set GetTargetParentDict = currentDict(pathArray(currentIndex))
    Else
        ' 递归进入下一层字典
        Set GetTargetParentDict = GetTargetParentDict(currentDict(pathArray(currentIndex)), pathArray, currentIndex + 1)
    End If
End Function

调用示例：

Dim targetParent As Dictionary
path = Split("Product,Dimensions,DimMM", ",")
Set targetParent = GetTargetParentDict(parsedDict, path, LBound(path))
' 修改目标键值
targetParent("Height") = "1600"

关键说明 #

• 不要尝试拼接字符串路径（如"("Product")("Dimensions")"），VBA不支持动态解析这种字符串为对象引用。
• 路径可以用任意分隔符（逗号、点、斜杠等），只要拆分后得到准确的键数组即可。
• 建议添加键存在性校验，避免因路径错误导致运行时错误。

内容的提问来源于stack exchange，提问作者rwiebe