vba - 初始化集合对象时出现 ActiveX 错误

Question

我已将我的变量定义如下：

Dim var1 As New Collection

并初始化如下：

set var1 = New Collection

我收到错误

ActiveX 无法创建对象

在上面的线。我能够初始化所有其他对象，例如 Dictionary 等。

标签： vba

Answer 1

第一行 -Dim var1 as New Collection定义和初始化集合。因此，不需要该集合，（但一般来说，它应该可以工作，尽管不需要）。试试这个，如果错误Set在行，它应该可以工作：

Sub TestMe()

    Dim myVar As New Collection
    myVar.Add 123
    myVar.Add 234
    Dim counter As Long
    For counter = 1 To myVar.Count
        Debug.Print myVar(counter)
    Next

End Sub

从错误来看，VBA 文件中可能缺少一些库。看一下Extras>Libraries，可能有什么MISSING，勾选了：

如果是这种情况，只需删除 MISSING: 检查。