vba: Rückgabewörterbuch von Funktion

Question

Dies umreißt, was ich versuche zu tun.

dies funktioniert nicht für mich, und es ist unklar, warum.

danke im voraus für jede und alle hilfe.

 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

Sie werden die SET-Schlüsselwort zu jeder Zeit verwenden müssen Sie ein Objekt zuweisen anstelle eines Wert:

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 

Ihr Original-Code auch myDict als neues Wörterbuch-Objekt erstellt wurde , dann sofort durch einen anderen ersetzen. Sie können diesen Schritt einfach überspringen.