vba: devuelve el diccionario de la función

Question

esto describe lo que estoy tratando de hacer.

esto no funciona para mí, y no está claro por qué.

gracias de antemano por cualquier ayuda.

 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

Usted tendrá que utilizar la palabra clave SET en cualquier momento va a asignar un objeto en lugar de un valor :

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 

Su código original también estaba creando myDict como un nuevo objeto Dictionary , luego reemplazándolo de inmediato por uno diferente. Puedes saltear ese paso.