-
FlexPro
- Auf einen Blick
- Features & Optionen
- Einsatzgebiete
- Alle Vorteile
- Neu in FlexPro 2021
- FlexPro gratis testen
- FlexPro View OEM Freeware
- Kaufberatung
- Login
- Language
- +49 6894 929600
- infoweisang.com
- Google Maps
- Produkte
- News
- Support
- Unternehmen
- Jobs
- Kontakt
- Login
- Language
- +49 6894 929600
- infoweisang.com
- Google Maps
Aufruf einer eigenen FPScript-Funktion
Home > Community > Automation and VBA > Aufruf einer eigenen FPScript-Funktion
- Dieses Thema hat 5 Antworten sowie 2 Teilnehmer und wurde zuletzt vor vor 13 Jahren, 2 Monaten von Thorsten Wolterink aktualisiert.
-
AutorBeiträge
-
Juli 14, 2011 um 12:59 pm Uhr #12730Thorsten WolterinkMitglied
Hallo,
ich versuche von VBA aus eine eigene FPScript-Funktion aufzurufen. Da ich es nicht hinbekommen habe, habe ich mal ein kurzes Beispiel erstellt, dass denselben Fehler erzeugt (Fett markiert).
FPScript-Funktion ‘FktTest’:
Arguments wert
Return wertVBA-Code:
Dim myFormel As Formula
Dim mySignal As Signal
Dim myVariant As Variant
Dim testWert As Variant
testWert = Array(“100”)With ActiveDatabase.RootFolder
‘ Funktion zum Testen bekannt machen
Set myFormel = .Object(“FktTest”, fpObjectTypeFormula)
‘ Prüfen, ob es eine Formel ist
If TypeOf myFormel Is Formula Then Debug.Print “myFormel ist Formel”
‘ Ausgabe der Formel
Debug.Print myFormel.Formula
Set myVariant = myFormel.Call(testWert)
Debug.Print myVariant
End WithAn der hervorgehobenen Stelle bekomme ich immer die Fehlermeldung “Typen unverträglich”. Soweit ich die Hilfe der CALL-Methode verstehe, gibt sie doch ein Variant zurück, sodass ich die ‘Uverträglichkeit’ nicht nachvollziehen kann.
Mit der Bitte um Unterstützung,
Thorsten Wolterink
Juli 14, 2011 um 12:59 pm Uhr #8394Thorsten WolterinkMitgliedHallo,
ich versuche von VBA aus eine eigene FPScript-Funktion aufzurufen. Da ich es nicht hinbekommen habe, habe ich mal ein kurzes Beispiel erstellt, dass denselben Fehler erzeugt (Fett markiert).
FPScript-Funktion ‘FktTest’:
Arguments wert
Return wertVBA-Code:
Dim myFormel As Formula
Dim mySignal As Signal
Dim myVariant As Variant
Dim testWert As Variant
testWert = Array(“100”)With ActiveDatabase.RootFolder
‘ Funktion zum Testen bekannt machen
Set myFormel = .Object(“FktTest”, fpObjectTypeFormula)
‘ Prüfen, ob es eine Formel ist
If TypeOf myFormel Is Formula Then Debug.Print “myFormel ist Formel”
‘ Ausgabe der Formel
Debug.Print myFormel.Formula
Set myVariant = myFormel.Call(testWert)
Debug.Print myVariant
End WithAn der hervorgehobenen Stelle bekomme ich immer die Fehlermeldung “Typen unverträglich”. Soweit ich die Hilfe der CALL-Methode verstehe, gibt sie doch ein Variant zurück, sodass ich die ‘Uverträglichkeit’ nicht nachvollziehen kann.
Mit der Bitte um Unterstützung,
Thorsten Wolterink
Juli 14, 2011 um 1:37 pm Uhr #9190Bernhard KantzTeilnehmerAccording to our test the Type mismatch occurs in the following line:
Debug.Print myVariant
This is because to try to print an array which usually requires a loop in VBA. Replacing the line by:
Debug.Print myVariant(0)
solved the problem.
Support
support@weisang.comJuli 14, 2011 um 3:41 pm Uhr #9191Thorsten WolterinkMitgliedHm,
bei mir tritt der Fehler eine Zeile höher auf.
Ich habe Ihre Lösung ausprobiert und auch die Zeile mit dem Print-Befehl auskommentiert.Der Fehler tritt weiterhin auf. Kurios.
Thorsten Wolterink
Juli 14, 2011 um 4:21 pm Uhr #9192Bernhard KantzTeilnehmerStrange enough we expected the error also in the line indicated by you. Please try to omit the set keyword. set should be used only if you assign an object (Signal, List or Complex in this case), otherwise an error should occur. For some reasons it did not happen in our tests.
Support
support@weisang.comJuli 20, 2011 um 9:58 am Uhr #9193Bernhard KantzTeilnehmerYou have to distinguish if you want to call a FPScript function with one argument for different values or if you want to call a FPScript function with more than one argument. The following example shows how it works:
Sub test()
Dim myFormel As Formula
Dim mySignal As Signal
Dim myVariant As Variant
Dim testWert1 As Variant
Dim testWert2 As Variant
testWert1 = Array(“100”, “1”)
testWert2 = Array(“200”, “2”)With ActiveDatabase.RootFolder
‘ Funktion zum Testen bekannt machen
Set myFormel = .Object(“FktTest”, fpObjectTypeFormula)
‘ Prüfen, ob es eine Formel ist
If TypeOf myFormel Is Formula Then Debug.Print “myFormel ist Formel”
‘ Ausgabe der Formel
Debug.Print myFormel.Formula
myVariant = myFormel.Call(testWert1, testWert2)
Debug.Print myVariant(0, 0)
Debug.Print myVariant(0, 1)
Debug.Print myVariant(1, 0)
Debug.Print myVariant(1, 1)
End With
End Sub -
AutorBeiträge
- Du musst angemeldet sein, um auf dieses Thema antworten zu können.