L'appel de sous à partir d'un autre module

J'ai un simple Function Test() dans Module1 et un Sub SubName() dans Module2. Je suis en train d'appeler SubName() de Function Test(). Lorsque je tape:

Call Module2.SubName

et à la sortie de la raw, j'obtiens une erreur:

Erreur de compilation: Attendu: identificateur

Quand je viens de type Module2 et mettre Stop, il me propose le nom de la sous-nom dans Module2. Donc, il ne voit en elle, mais ressemble manque quelque chose dans la syntaxe. Je ne peux pas comprendre ce qu'.

InformationsquelleAutor Iouri | 2015-03-26
  1. 0

    Certains liens connexes :

    1. MSDN-l'Appel de Procédures Sub et Function
    2. DONC,-l'Appel d'une Sous VBA
    3. De SORTE-Que signifie le mot clé Call n'en VB6?

    la Solution à votre question :

    Soit utiliser Call SubName ou tout simplement SubName.

    Test:

    Après quelques tests, j'ai été en mesure de briser le code. L'erreur est PAS la même que vous obtenez, mais peut-être cela va nous rapprocher de la solution.

    Image à partir de VBA:
    L'appel de sous à partir d'un autre module

    • Pourquoi pensez-vous que la Module2. de qualification est la cause de l'erreur? Avez-vous été en mesure de reproduire l'erreur? Je suis sûr ne l'étais pas. L'OP du code publié fonctionne très bien.
    • Bonne question. M'a fait tester le problème de l'OP et ça marche pour moi. Alors maintenant, je ne pense pas que le Module2. est le problème. J'ai, à tort, sauté à la conclusion.
    • pensez-vous que le problème peut être causé par un mauvais usage des noms de variable?
    • Voir la photo que j'ai ajouté, pour comprendre ce que je veux dire.
    • Vrai - pas de réponse, pourtant. J'ai fait de laisser un commentaire en dessous de son poste, et après il me répond, je peut être en mesure de fournir une réponse. C'est un travail en cours.
    • Les gars, merci à vous tous. Il fonctionne vraiment, simplement en utilisant un sous nom, même s'il est dans un autre Module. Si, si, il y a deux Sous-s avec le même nom (l'un dans le module en cours et l'un dans l'autre), il va exécuter l'un dans son propre module. Afin de ne pas aller à un autre module. Si j'ai créer 2 modules externes avec le même nom de Sous il sera de retour un message d'erreur "...Ambigu..". Et c'est tarif. La question est: comment puis-je spécifier le module à partir de laquelle je veux exécuter le sub. Si j'ai mis le Module.Subname, il renvoie une erreur de syntaxe ("Attendu: la ligne ou de l'étiquette ou de l'instruction ou à la fin de la déclaration")

    InformationsquelleAutor kolcinx
  2. 0

    La solution est simple: il suffit d'utiliser la déclaration

    SubName

    et il sera appelé.

    Clarifier quelques remarques:

    • Pas nécessaire d'utiliser l'instruction d'Appel. Si vous le faites cependant, vous devez utiliser Call SubName()
    • Si vous appelez d'un sub avec des paramètres, utilisez SubName Param1 - ou appelez Call SubName(Param1). N'utilisez pas de Subname(Param1)- si param1 est un objet, cela va passer c'est la propriété par défaut pour les sous, pas de l'objet (par exemple, Subname (Range("A1")) va passer la valeur de la cellule à la sous - mais pas de l'objet Range - Subname Range("A1") va passer de l'objet Range.
    • Vous pouvez également utiliser Module2.SubName - cependant ce n'est nécessaire, si vous avez plusieurs SubName sous dans les différents modules
    • J'ai juste essayé de Call Module2.SubName moi-même et cela a fonctionné comme prévu. Pourquoi pensez-vous que les crochets () ou la Call ou la Module2. de qualification est la cause de l'erreur? "N'utilisez pas de sous-nom(Param1)- comme ce sera jeté Param1 à une chaîne de caractères!" Ce n'est pas vrai. Essayez-le et laissez-vous convaincre.
    • Pour vous aider à vous convaincre vous-même: appeler cette Sub asub(v): MsgBox TypeName(v): End Sub comme ce Sub test2(): asub (3.1415926): asub (True): asub (5): End Sub Pas des chaînes de caractères.
    • Bon point, merci! J'ai clarifié ma réponse - ce n'est pas la conversion en chaîne de caractères - mais plutôt le passage de la propriété par défaut d'un objet. E. g. dans votre exemple, asub Range("A1") serait Range, mais asub (Range("A1")) serait string ou double, en fonction du contenu de A1.
    InformationsquelleAutor Peter Albert