如何通过路径动态访问/编辑嵌套字典？能否用递归实现？

当然可以用递归函数解决这个问题，递归天生适合处理这种层级嵌套的结构，能彻底替代冗余的Select Case语句，不管路径有多少层都能灵活处理。

核心思路 #

递归的逻辑很简单：沿着pathCol记录的路径，逐层深入allDocsDict，每走一步就把路径里的当前节点移除，直到走到路径的最后一个节点，然后把childrenDocsDict赋值到该节点的"children"字段。

代码示例（以VBA字典为例） #

假设你用的是VBA的Dictionary对象，递归函数可以这么写：

Sub AssignChildrenByPathRecursive(currentDict As Dictionary, path As Collection, childrenDict As Dictionary)
    ' 递归终止条件：路径只剩最后一个节点，直接赋值
    If path.Count = 1 Then
        Set currentDict(path(1))("children") = childrenDict
        Exit Sub
    End If
    
    ' 取出当前路径节点
    Dim currentKey As String
    currentKey = path(1)
    
    ' 检查节点是否存在，避免报错（可选但推荐）
    If Not currentDict.Exists(currentKey) Then
        MsgBox "路径节点 '" & currentKey & "' 在字典中不存在！"
        Exit Sub
    End If
    
    ' 移除已处理的节点，进入下一层
    path.Remove 1
    
    ' 递归处理下一层字典
    AssignChildrenByPathRecursive currentDict(currentKey)("children"), path, childrenDict
End Sub

调用方式 #

调用前需要复制一份pathCol（因为递归过程中会修改集合内容，避免影响原数据），然后直接调用函数：

' 复制原路径集合
Dim pathCopy As New Collection
Dim i As Integer
For i = 1 To pathCol.Count
    pathCopy.Add pathCol(i)
Next i

' 执行递归赋值
AssignChildrenByPathRecursive allDocsDict, pathCopy, childrenDocsDict

为什么比Select Case好 #

• 灵活性拉满：不管你的装配体嵌套多少层，都不用修改函数代码，新增层级也不用加分支
• 代码更简洁：不用写一堆Case 1、Case 2的重复逻辑，逻辑更清晰
• 可维护性高：后续修改路径处理逻辑，只需要改这一个函数

新手注意事项 #

1. 必须确保pathCol里的每个节点都在allDocsDict的对应层级存在，否则会触发运行时错误，上面的代码加了检查可以避免这种情况
2. 递归的终止条件一定要写对（这里是path.Count = 1），不然会陷入无限循环导致程序崩溃
3. 调用时一定要传pathCol的副本，否则原集合的内容会被递归函数修改，影响其他地方的使用

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