Question

我正在写一个 Excel宏，而我在清除 Scripting.Dictionary对象时遇到了问题：

Dim test As Integer
test = CompListDict.Count
CompListDict.RemoveAll
Set CompListDict = Nothing
Set CompListDict = CreateObject("Scripting.Dictionary")
Dim test1 As Integer
test1 = CompListDict.Count

在我这样做之前，我将项目添加到字典中，然后我尝试清除它，但test1将等于测试并等于我添加的nr个对象。

我做错了什么？谢谢！

Answer 1

如果我在工作站上运行以下宏，它可以工作：

        Set compListDict = CreateObject("Scripting.Dictionary")

        compListDict.Add 1, "Test"

        Dim test As Integer
        test = compListDict.Count
        compListDict.RemoveAll

        Set compListDict = Nothing
        Set compListDict = CreateObject("Scripting.Dictionary")

        Dim test1 As Integer
        test1 = compListDict.Count

运行后，test1等于0，测试等于1.

确保您启用了Option Explicit，并且您的变量名称中没有任何拼写错误。

此外，请确保您没有“On Error Resume Next”语句，因为它会隐藏代码中的错误。尝试在代码段之前放置“On Error Goto 0”，以便Excel显示任何错误消息。

由于您将变量值设置为Nothing，并为其分配了一个新的字典对象，因此它不可能保留预先存储的值。

我也试过运行以下代码，它也给出了相同的结果：

        Set compListDict = CreateObject("Scripting.Dictionary")

        compListDict.Add 1, "Test"

        Dim test As Integer
        test = compListDict.Count
        compListDict.RemoveAll

        Dim test1 As Integer
        test1 = compListDict.Count

希望有帮助...

Answer 2

您的代码看起来还不错，尽管您将dict设置为空的2行并不需要重新创建它。

不确定它是否相关，但某些版本的VBA IDE存在错误：如果您在dict(aKeyThatDoesNotExist)上添加了一个监视，则可能会导致将tgat密钥添加到该字典而不是可拆卸的。我知道的唯一解决方案：重启Excel以清除内存。

修改

对于Siddharth：使用Excel 2003＆amp ;;进行测试2010。

制作新书打开VBA IDE 在Sheet1模块中键入：

Option Explicit Sub test() Dim d As Variant Set d = CreateObject("Scripting.Dictionary") d.Add "a", "a" Debug.Print d.Count 'Add watch here on d and d("b") Debug.Print d.Count End Sub

以分步模式运行，在评论行上，在d和d("b")上添加观看。第二个Debug.Print将打印2.到目前为止，您可能会认为手表创建了一个条目，这很奇怪，因为您不希望手表产生副作用。

再次运行宏：第一个 Debug.Print将打印2，您会注意到字典已经有了＆＃34; b＆＃34;键。

实际上，与我上面所说的相反，删除d("b")上的手表并重新运行宏会正确重置字典。

VB Clear Scripting.Dictionary对象

2 个答案: