vba: słownik powrotu z funkcji

Question

ten schemat określa, co próbuję zrobić.

to nie działa dla mnie i nie jest jasne, dlaczego.

z góry dziękuję za wszelką pomoc.

 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

Musisz użyć słowa kluczowego SET każdej chwili jesteś przypisanie obiekt zamiast wartości :

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 

Twój oryginalny kod został również tworzenie myDict jako nowego obiektu Dictionary , a następnie natychmiast zastępując go innym. Możesz po prostu pominąć ten krok.