Не удается передать словарь в качестве аргумента функции VBA

Question

У меня есть функция VBA, который должен взять словарь в качестве аргумента:

Function ShowDict(Dict1 As Dictionary) 
    For Each x In Dict1 
     MsgBox (Dict1.Item(x)) 
    Next 
End Function 

И я пытаюсь назвать это следующим образом:

Dim Dict As Dictionary 
Set Dict = Dictionary 
Dict.Add "Owner", "John" 
Dict.Add "Employee", "Sam" 
ShowDict (Dict) 

Я делал выбор ссылок на Microsoft Scripting из ссылок перед определением словаря. Тем не менее, я получаю ошибку компиляции с указанием «Аргумент не факультативно», когда я пытаюсь вызвать функцию, используя параметр «Dict» в качестве параметра. Может кто-нибудь мне помочь?

Answer 1

сделать эти 2 изменения (New Dictionary и ShowDict Dict):

Dim Dict As Dictionary 
'Set Dict = Dictionary 
Set Dict = New Dictionary 
Dict.Add "Owner", "John" 
Dict.Add "Employee", "Sam" 
'ShowDict (Dict) 
ShowDict Dict 

Также я предлагаю добавить Option Explicit в раздел объявлений код модуля и включает Dim x в вашей ShowDict функции. Отсутствие этих факторов не способствует непосредственной проблеме, но добавление их может предотвратить другие проблемы в будущем.