Passa dizionario vba

Question

Nuovo a vba. Come passare l'oggetto dizionario ad un'altra funzione.

Sub aaa(dict As Object) 
Set dict = CreateObject("Scripting.Dictionary") 
... 
process dict 
End Sub 

Sub process(dict As Scripting.Dictionary) 
    MsgBox dict.Count 
End Sub 

dà un errore di compilazione: tipo definito Utente non definito

---

Inoltre,

Set dict = CreateObject("Scripting.Dictionary") 

opere, ma

Dim dict As New Scripting.Dictionary 

dà, "tipo definito dall'utente non definito "

Io uso Excel 2010

Answer 1

Quando si utilizza CreateObject si sta vincolando l'oggetto in fase di esecuzione (ad esempio, associazione in ritardo). Quando si utilizza As Scripting.Dictionary, l'oggetto è vincolato in fase di compilazione (ovvero, associazione anticipata).

Se si desidera eseguire il binding anticipato, è necessario impostare un riferimento alla libreria corretta. Per fare questo, andare in Strumenti -> Riferimenti ... e selezionare "Microsoft Scripting Runtime"

Answer 2

Per evitare l'errore aggiungere il Microsoft Scripting Runtime (in Strumenti -> Riferimenti).
esempio semplificato:

Sub test_dict() 
    Dim dict As New Scripting.Dictionary 
    Call process(dict) 
End Sub 

Sub process_dict(dict As Scripting.Dictionary) 
    MsgBox dict.Count 
End Sub 

Answer 3

è necessario aggiungere un riferimento alla libreria Microsoft Scripting Runtime per la macro per essere in grado di riconoscere i tipi. Goto Tools-> Riferimenti e verifica di Microsoft Scripting Runtime.

Answer 4

vorrei rivedere questa risposta a utilizzare l'associazione tardiva solo, e utilizzare un parametro di oggetto:

Sub aaa(dict As Object) 
Set dict = CreateObject("Scripting.Dictionary") 
... 
process dict 
End Sub 

Sub process(dict As Object) 
    MsgBox dict.Count 
End Sub 

Answer 5

Dopo si aggiunge il "Strumenti-> References-> Microsoft Scripting Runtime" provare questo

Private Sub CommandButton1_Click() 

    Dim myLocalDictionary As New Dictionary 
    myLocalDictionary.Add "a", "aaa" 
    myLocalDictionary.Add "b", "bbb" 
    myLocalDictionary.Add "c", "ccc" 

    Call testPassDictionary(myLocalDictionary) 

End Sub 

Sub testPassDictionary(myDictionary As Dictionary) 
    MsgBox myDictionary.Count 
End Sub