vba: retourner le dictionnaire de la fonction

Question

cela décrit ce que je suis en train de faire.

cela ne fonctionne pas pour moi, et on ne sait pas pourquoi.

merci d'avance pour toute aide.

 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

Vous devez utiliser le moment de mot-clé SET vous assignez un objet au lieu d'une valeur :

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 

Votre code d'origine a été crée aussi mondict comme un nouvel objet Dictionnaire , puis en le remplaçant immédiatement par un autre. Vous pouvez simplement ignorer cette étape.