Проблемы с созданием объекта словаря для макроса VBA - PullRequest
Новая
       22

Проблемы с созданием объекта словаря для макроса VBA

0 голосов
/ 09 июля 2020

Я просто пытаюсь запустить приведенный ниже код, но не могу создать объект ScriptingDictionary; Я все время получаю сообщение об ошибке:

Ошибка времени выполнения «429»: компонент ActiveX не может создать объект.

Я также пытался создать объект, используя ключевое слово «New», и был не успешный. Нужно ли мне импортировать какие-либо библиотеки?

Спасибо за помощь. 

Option Explicit
Sub GetDuplicates():
    Dim i As Long, arr As Variant, tmp As Variant
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")

    arr = Range(Cells(1, "ID"), Cells(Rows.Count, "ID").End(xlUp)).Value
    'build dictionary
    For i = 2 To UBound(arr, 1)
        If dict.exists(arr(i, 1)) Then
            Cells(i, 3).Value = "Repeat"
        Else
            dict.Item(arr(i, 1)) = Array(i)
        End If
    Next i
End Sub
...