如何基于用户输入自动更新Scripting Dictionary初始化代码？

完全可以实现这个需求，核心是用VBA操作自身的代码模块，把新增的键值对自动追加到字典初始化代码里。下面是具体的实现思路和代码示例：

步骤说明 #

• 把字典初始化代码放到固定过程中（比如InitDict），方便定位修改
• 用户输入新键值对后，先添加到当前运行的字典
• 通过VBA的VBComponent对象找到初始化代码的End With位置，插入新的.Add语句
• 提示保存工作簿，确保修改后的代码下次运行时生效

代码示例 #

1. 字典初始化过程 #

' 初始化字典的固定过程，所有初始键值对都在这里
Sub InitDict()
    Set dict = New Scripting.Dictionary
    With dict
        .Add "val1", "Value 1"
        .Add "val2", "Value 2"
    End With
End Sub

2. 处理输入并自动更新代码的过程 #

Sub HandleNewMapping()
    Dim inputKey As String, mappedValue As String
    Dim codeModule As VBComponent
    Dim allCodeLines As Variant, lineIndex As Integer
    Dim insertPosition As Integer, newAddLine As String
    
    ' 获取用户输入的键
    inputKey = InputBox("请输入要映射的键：")
    If inputKey = "" Then Exit Sub
    
    ' 如果键不存在，获取对应的映射值
    If Not dict.Exists(inputKey) Then
        mappedValue = InputBox("请输入对应的映射值：")
        If mappedValue = "" Then Exit Sub
        
        ' 先添加到当前运行的字典
        dict.Add inputKey, mappedValue
        
        ' 定位到存放初始化代码的模块（这里假设是Module1，根据实际修改）
        Set codeModule = ThisWorkbook.VBProject.VBComponents("Module1")
        allCodeLines = Split(codeModule.CodeModule.Lines(1, codeModule.CodeModule.Count), vbCrLf)
        
        ' 找到End With的位置，确定插入行
        insertPosition = 0
        For lineIndex = LBound(allCodeLines) To UBound(allCodeLines)
            If Trim(allCodeLines(lineIndex)) = "End With" Then
                insertPosition = lineIndex + 1 ' 适配代码行的1起始计数规则
                Exit For
            End If
        Next lineIndex
        
        ' 生成要插入的.Add语句
        newAddLine = "    .Add """ & inputKey & """, """ & mappedValue & """"
        
        ' 插入新代码行
        If insertPosition > 0 Then
            codeModule.CodeModule.InsertLines insertPosition, newAddLine
            MsgBox "新映射已添加到初始化代码，请保存工作簿，下次运行时会自动加载！"
        Else
            MsgBox "未找到字典初始化的End With语句，无法自动添加！"
        End If
    Else
        MsgBox "该键已存在于字典中！"
    End If
End Sub

注意事项 #

• 必须启用信任对VBA项目对象模型的访问：打开文件选项→信任中心→信任中心设置→宏设置，勾选该选项，否则代码无法修改VBA模块
• 建议给初始化代码块加特殊注释标记（比如'---DictInitStart---和'---DictInitEnd---），这样可以更精准定位插入范围，避免误修改其他代码
• 运行后记得保存工作簿，否则修改的代码会丢失

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