---

Hallo,

ich habe in einer catvba Datei mehrere Module, Hier mal Modul A und B. Im Modul A habe ich eine private Sub in der ich des Modul inkl. eines Parameters aufrufen möchte. Leider bekomme ich es nur hin ohne Übergabe eines Parameters.

Hier der Codeauszug vom Modul A:

Private Sub cmdHilfe_Click()

Code:

---

Dim sFilePath
Dim sFileName
Dim sModule
Dim sProcedure
Dim sFilePathAndName
Dim CatSysServ
Dim vRetVal
Dim sParams()

Redim Preserve sParams(0)

sParams(0) = "Ausgabe"

sFilePath = "\\Server\CATIA\MAKROS\TEST"
sFileName = "Makro_B.catvba"
sModule = "B"
sProcedure = "CatMain"
sFilePathAndName = sFilePath & "\" & sFileName
Set CatSysServ = CATIA.SystemService
vRetVal = CatSysServ.ExecuteScript(sFilePathAndName, catScriptLibraryTypeVBAProject, sModule, "CATMain", sParams)

End Sub

---

Hier der Auszug aus Modul B:

Code:

---

Sub CATMain(byval sFName As String)

msgbox(sFName)

End Sub

---

Entweder ich bekomme die Meldung das die Variablentypen nicht passen oder auch ne andere (die ich jetzt nicht parat hab da ich nicht am CAD Rechner sitze sondern mir das nur von nem Ausdruck runter tippe.

Gruß

Tiberius

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus
Wenn es sich bei der Sub im Modul B nicht um eine Private Sub handelt könntest du auch:

Code:

---

B.CATMain "Ausgabe"

---

verwenden.
Oder war das nur ein einfaches Beispiel zum testen?

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Es handelt sich im Modul B nicht um eine Private Sub.

Ok, wenn ich den Wert auch so übergeben kann, nur wie nehme ich den wert wieder in Modul auf? So wie ich es in Modul B schon stehen hab?

Ich werde es jetzt einfach mal probieren und sehen wie ich hinkomme.
Danke schonmal für den Tipp!

Edit:
Bekomme Fehlermeldung die da lautet - Wrong number of Argumentsor invalid property assignment

[Diese Nachricht wurde von Tiberius am 22. Sep. 2011 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP