vba: de retour de dictionnaire à partir de la fonction

description de ce que je suis en train de faire.

ce n'est pas de travail pour moi, et il est difficile de savoir 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

OriginalL'auteur jason m | 2010-10-27

  1. 27

    Vous devez utiliser le mot clé SET à tout moment de l'affectation d'un objet au lieu d'un 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 également été la création de myDict comme un nouvel objet de Dictionnaire, puis immédiatement de le remplacer par un autre. Vous pouvez simplement sauter cette étape.

    cela fonctionne avec une légère altération si vous définissez mafonction(1)=myDict2. mais cela crée une boucle infinie.
    Non, ce n'est pas une boucle infinie. myFunction = Value (ou SET myFunction = Object) est le VBA équivalent de RETURN Value
    Et vous ne voulez pas myFunc(1)=, vous voulez juste myFunc=, sinon vous êtes juste de réglage de la première valeur du dictionnaire de l'ensemble de l'objet, ce qui n'est pas ce que vous voulez.
    oui le "Set mafonction=Obj" est le morceau de code qui a été nécessaire. merci beaucoup pour le pointeur
    Tout en utilisant le même code..je suis d'erreur comme type défini par l'utilisateur non défini.S'il vous plaît aider

    OriginalL'auteur BradC