Oliver Bergthaler
2005-05-04 14:11:03 UTC
Hallo NG
Ich möchte VBA in mein Visual Basic Project 6 einbinden. Hierfür gibt es von
MS die Visual Basic APC.
Folgenden Code verwende ich um eine existierende Funktion in einem Modul
aufzurufen. (sehr einfach gehalten)
Public sub callFunction()
Dim arrParam As Variant
Dim prjItem As ProjectItem
Dim prjProc As Procedure
arrParam = "abcdef"
For Each prjItem In m_apcInt.ApcHost.Projects(1).ProjectItems
For Each prjProc In prjItem.Procedures
If prjProc.Name = "myFunction" Then
prjProc.Run arrParam
End If
Next
Next
End Sub
Lauf Dokumentation muss man wen man eine Prozedure oder Funktion aufruft die
Parameter erwartet die Methode RUN verwenden. die Definition der
Parameterübergabe lautet
object.Run([Argument]...)
Argument: A Variant expression that is passed to the subroutine or function
being called. You can pass as many arguments as necessary, up to the maximum
number of arguments supported by VBA.
beim Aufruf Run bekomme ich dann folgende Fehlermeldung.
Lauftzeitfehler '-2147220192 (80040520)'
One or more arguments are invalid.
Ich habe jetzt mit jeder erdenklichen Kombination von Array und Variants
herumprobiert, bekomme aber immer die gleiche Fehlermeldung.
Code den ich im externen VBA Modul Aufrufe.
Private Sub myFunction(ByVal aString As String)
MsgBox aString
End Sub
Ich möchte VBA in mein Visual Basic Project 6 einbinden. Hierfür gibt es von
MS die Visual Basic APC.
Folgenden Code verwende ich um eine existierende Funktion in einem Modul
aufzurufen. (sehr einfach gehalten)
Public sub callFunction()
Dim arrParam As Variant
Dim prjItem As ProjectItem
Dim prjProc As Procedure
arrParam = "abcdef"
For Each prjItem In m_apcInt.ApcHost.Projects(1).ProjectItems
For Each prjProc In prjItem.Procedures
If prjProc.Name = "myFunction" Then
prjProc.Run arrParam
End If
Next
Next
End Sub
Lauf Dokumentation muss man wen man eine Prozedure oder Funktion aufruft die
Parameter erwartet die Methode RUN verwenden. die Definition der
Parameterübergabe lautet
object.Run([Argument]...)
Argument: A Variant expression that is passed to the subroutine or function
being called. You can pass as many arguments as necessary, up to the maximum
number of arguments supported by VBA.
beim Aufruf Run bekomme ich dann folgende Fehlermeldung.
Lauftzeitfehler '-2147220192 (80040520)'
One or more arguments are invalid.
Ich habe jetzt mit jeder erdenklichen Kombination von Array und Variants
herumprobiert, bekomme aber immer die gleiche Fehlermeldung.
Code den ich im externen VBA Modul Aufrufe.
Private Sub myFunction(ByVal aString As String)
MsgBox aString
End Sub