Ошибка ActiveX при инициализации объекта Collection

Question

Я определил мою переменную, как показано ниже:

Dim var1 As New Collection

и инициализировал так же, как показано ниже:

set var1 = New Collection

Я получаю ошибку

ActiveXне может создать объект

в строке выше. Я могу инициализировать все другие объекты, такие как словарь и т. Д.

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 может быть какая-то недостающая библиотека. Посмотрите на Дополнения> Библиотеки, вероятно, есть что-то ПРОПУСК, которое проверено:

Если это так, просто удалите ПРОПУСК: check.