Wie führe/Aufruf eines Moduls in einem anderen Modul in VBA-excel?

Okay also ich habe 3 Module. Mein erste Modul ist "main", das ist das Modul, das muss ich anrufen das andere Modul. Was ich meine ist, dass wenn ich main, ich will es call/run die anderen 2 module. Derzeit, wenn ich drücken Sie die F5-Taste, die es nicht tun. Wie mache ich das?

Mein Aktueller code sieht wie folgt aus:

Sub main_TRY()
    Call Module2
    Call Module3
End Sub

Alle Hilfe wird sehr geschätzt. Danke.

Sind die Sub oder Function Definitionen genannt Module2 und Module3? Sie möchten Call TheActualSubroutineName, nicht das Modul mit dem code. Zum Beispiel, würden Sie wollen Call main_TRY, nicht Call Module1
oh. okay, ich löste es bereits. Danke @Dan Wagner

InformationsquelleAutor Nur Atiqah Hassan | 2015-06-12

  1. 3

    Antwort:

    Sub main_TRY1()
    Call Module2.Formating
    Call Module3.Data
End Sub
    Das ist nur nötig, wenn Formatieren und Daten deklariert wurden, als Private Sub. Ein Public Sub ist der Standardwert, so dass, wenn Sie deklariert wurden, als Public Sub Formating(...) oder Sub Formating(...) dann Call Formating(...) oder einfach Formating(...) geeignet ist. Die (...) ist nicht erforderlich, es sei denn, Sie werfen die Parameter in der sub.
    Danke @Jeeped. Nachdem ich entfernt Privat aus meiner Funktionsdefinitionen, ich war in der Lage, Sie zu nennen von einem anderen Modul. Und ich habe nicht brauchen, um den Namen des Moduls in den Anruf zu meinem (nun öffentlichen) Funktion.

    InformationsquelleAutor Nur Atiqah Hassan

  2. 0

    Ich habe eine ähnlich struction auf einem meiner vba-Skripts, und es geht so.

    Private Sub CommandButton1_Click()
Call GetData1
End Sub

    und in meinem "Modul2", es sieht so aus

    Sub GetData1()
'my code
Dim IE As Object
Dim dd As Variant

Set IE = GetObject("new:{D5E8041D-920F-45e9-B8FB-B1DEB82C6E5E}")

IE.Visible = False

IE.Navigate "https://www.avanza.se/aktier/om-aktien.html/5247/investor-b"

Application.StatusBar = "Loading, Please wait..."

IEWait IE

Application.StatusBar = "Searching for value. Please wait..."
dd = IE.Document.getElementsByClassName("lastPrice SText bold")(0).innerText
Range("G7").Value = dd
End Sub

    Vielleicht ein bisschen zu viel, aber ich wollte nur, dass Sie verstehen, die Struktur der code, den ich verwende.

    Jedes mal also, wenn ich auf den Button "CommandButton1"
    Dieser obige code wird ausgeführt, aber in deinem Fall jedes mal, wenn Sie die Funktion aufrufen main_try() , sollten Sie, wie oben erwähnt, rufen die Funktionen in den Modulen, nicht das Modul selber.

    Hoffte, dass es half, beste Grüße

    InformationsquelleAutor Rycket

Schreibe einen Kommentar