VBA类Get属性调用时Dictionary莫名新增元素问题排查

1. 为何会新增多余元素？ #

这是Scripting.Dictionary的默认特性：当你通过dict(Key)的形式访问一个不存在的键时，字典会自动将该键添加到集合中，对应的值为Empty。

你的场景中，file_management.sheet_names(curr)(file_name_replacement)的执行逻辑是：

• 先通过sheet_names(curr)获取外层字典中curr对应的内层字典
• 接着尝试访问内层字典的file_name_replacement键
• 因为该键不存在（即时窗口Exists返回False），内层字典自动新增了这个键，导致总元素数从28变为29。

2. 如何阻止该元素新增？ #

核心思路是避免直接访问不存在的键，可以通过以下方式实现：

方法一：先判断键是否存在，再访问 #

在尝试访问内层字典的键之前，先用Exists方法验证：

Dim innerDict As Scripting.Dictionary
Set innerDict = file_management.sheet_names(curr)

If innerDict.Exists(file_name_replacement) Then
    ' 仅当键存在时，才执行后续操作（比如传入SheetExists函数）
    Call SheetExists(innerDict(file_name_replacement))
Else
    ' 处理键不存在的情况
End If

方法二：修改Get属性返回嵌套字典的深拷贝 #

如果你希望外部无法修改原始字典，需要对嵌套字典进行深拷贝（仅复制外层字典无法避免内层字典的引用修改）。可以编写一个辅助函数复制嵌套字典：

Private Function CopyNestedDict(ByVal sourceDict As Scripting.Dictionary) As Scripting.Dictionary
    Dim newDict As New Scripting.Dictionary
    Dim key As Variant
    Dim innerSource As Scripting.Dictionary
    Dim innerCopy As Scripting.Dictionary
    
    For Each key In sourceDict.Keys
        If TypeName(sourceDict(key)) = "Dictionary" Then
            Set innerSource = sourceDict(key)
            Set innerCopy = New Scripting.Dictionary
            ' 复制内层字典的键值对
            Dim innerKey As Variant
            For Each innerKey In innerSource.Keys
                innerCopy.Add innerKey, innerSource(innerKey)
            Next innerKey
            newDict.Add key, innerCopy
        Else
            newDict.Add key, sourceDict(key)
        End If
    Next key
    
    Set CopyNestedDict = newDict
End Function

' 修改Get属性返回复制后的嵌套字典
Public Property Get sheet_names() As Scripting.Dictionary
    Set sheet_names = CopyNestedDict(p_sheet_names)
End Property

这样外部对返回字典的修改（包括自动新增键）不会影响原始的p_sheet_names。

方法三：改用Item方法结合错误捕获 #

如果不想提前判断，可以通过错误捕获避免自动新增键：

Dim sheetName As Variant
On Error Resume Next
sheetName = file_management.sheet_names(curr).Item(file_name_replacement)
If Err.Number = 0 Then
    ' 键存在，执行操作
    Call SheetExists(sheetName)
Else
    ' 键不存在，处理错误
    Err.Clear
End If
On Error GoTo 0

注：Item方法在访问不存在的键时默认也会新增键，但结合On Error Resume Next时，若键不存在会触发错误，此时不会完成键的新增操作（需确保错误捕获逻辑及时中断后续执行）。

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