在 VBA 中返回具有早期绑定的字典的函数

如何解决在 VBA 中返回具有早期绑定的字典的函数

是否可以在函数中提前绑定字典？我想避免用户必须显式激活该引用才能使工作簿正常工作：

Function RngToDict (rng As Range) As Dictionary    
End Function

解决方法

早期绑定 是一个很好的解决方案，如果您将代码分发给与您具有相同系统的其他用户，因为复选标记随它“移动”，因此它与用户计算机中的相应库相关。字典的正确库是Microsoft Scripting Runtime。

无论如何，如果出于某些“科学”原因，您想从具有早期绑定的函数返回字典，这是一种方法：

• 从函数返回一个对象
• 在函数中将其转换为字典

---

Function myDict() As Object        
    Set myDict = CreateObject("Scripting.Dictionary")
    myDict.Add "Foo","Bar"        
End Function    

Public Sub PrintDictionary(myDict As Object)        
    Dim key     As Variant
    For Each key In myDict.Keys
        Debug.Print key; "-->"; myDict(key)
    Next key        
End Sub

Sub TestMe()        
    PrintDictionary myDict    
End Sub