vba: il dizionario di ritorno dalla funzione

Question

descrive ciò che sto cercando di fare.

questo non funziona per me, e non è chiaro il perché.

grazie in anticipo per qualsiasi aiuto.

 Sub mySub() 
     dim myDict as Dictionary 
      myDict=new Dictionary 

       myDict=myFunc() 

     End Sub 

     Function myFunc() 
      dim myDict2 
       set myDict2 = new Dictionary 

        'some code that does things and adds to myDict2' 

      myFunc=myDict2 
     End Function 

Answer 1

Avrete bisogno di utilizzare il set di parole chiave in qualsiasi momento si assegna un oggetto invece di un valore :

Sub mySub() 
     dim myDict as Dictionary 
     set myDict = myFunc() 
    End Sub 

    Function myFunc() as Dictionary 
     dim myDict2 as Dictionary 
     set myDict2 = new Dictionary 
       'some code that does things and adds to myDict2' 
     set myFunc=myDict2 
    End Function 

Il codice originale è stata anche la creazione di myDict come un nuovo oggetto Dictionary , quindi immediatamente sostituendolo con uno diverso. Puoi saltare questo passaggio.