Я хочу использовать в своей программе доступа либо хеш-таблицу, либо словарь. По-видимому, я должен использовать для этого Microsoft Scripting Runtime Library, но это не работает.
Dim Dict1 As Dictionary
' Create a dictionary instance.
Set Dict1 = New Dictionary
Не удается найти методы ".compareMode" или ".Add":
With Dict1
'set compare mode
.CompareMode = BinaryCompare
' Add items to the dictionary.
.Add 1, "Item 1"
.Add 2, "Item 2"
.Add 3, "Item 3"
End With
Вместо этого мне доступны только эти:
.application
.creator
.delete
etc...
Какие-нибудь подсказки?





Ну, прежде всего измените ДвоичныйСравнить на vbBinaryCompare.
И я думаю, вы хотите сделать свой сет вот так:
Set Dict1 = CreateObject(Scripting.Dictionary)
Редактировать Для большей наглядности вот возможное решение Антона. Он изменил способ объявления своего словаря следующим образом:
Dim SortValues As Scripting.Dictionary
Set SortValues = New Scripting.Dictionary
Исходная строка CodeSlave должна была заключить имя класса (Scripting.Dictionary) в двойные кавычки, то есть Dim Dict1 As Object Set Dict1 = CreateObject ("Scripting.Dictionary")
Этот способ не сработал, но дал мне идею. Dim SortValues As Scripting.Dictionary Установить SortValues = New Scripting.Dictionary Это сработало. Спасибо за помощь!