Builder EX: Matlabfunctions mit mehreren Outputs in Excel

WICHTIG: Der Betrieb von goMatlab.de wird privat finanziert fortgesetzt. - Mehr Infos...

Partner:

Forum

Option

[Erweitert]

• Diese Seite per Mail weiterempfehlen

Gehe zu:

stiffi

Forum-Anfänger


	Beiträge: 41

	Anmeldedatum: 13.07.11

	Wohnort: ---

	Version: ---

Verfasst am: 30.03.2012, 10:08 Titel: Builder EX: Matlabfunctions mit mehreren Outputs in Excel

Hallo liebe goMATLAB -Community,

ich habe in MATLAB eine Funktion gebastelt, die anhand einer Input-Variable drei Vektoren mit Output-Variablen ausgibt.
Genauer gesagt, man gibt das Jahr ein und erhält dann
- einen Vektor, der die Tagdaten aller Feiertage des Jahres enthält
- einen Vektor, der die Namen der Feiertage als Stings enthält
- und einen Vektor, der die Tagdaten als Strings enthält.

Diese Funktion "FTDE" habe ich kompiliert und in VBA importiert.
Wenn man in Excel in einer Zelle den Befehl z.B. =FTDE(2012) in Matrixschreibweise eingibt, erhält man den ersten Vektor mit den Tagdaten des Jahres 2012 zurück.

Meine Frage ist jetzt, wie ich auch die anderen beiden Outputvariablen in Excel angezeigt bekomme.
Hat jemand von Euch ausreichende VBA-Kenntnisse, um mir zu sagen, wie der VBA-Code abgeändert werden muss, damit das funktioniert?

Hier der VBA Code:

Code:

Dim MCLUtil As Object
Dim bModuleInitialized As Boolean
Dim Class1 As Object

Private Sub InitModule()
If Not bModuleInitialized Then
On Error GoTo Handle_Error
If MCLUtil Is Nothing Then
Set MCLUtil = CreateObject("MWComUtil.MWUtil7.16")
End If
Call MCLUtil.MWInitApplication(Application)

bModuleInitialized = True
Exit Sub
Handle_Error:
bModuleInitialized = False
End If
End Sub

Function FTDE(Optional Jahr As Variant) As Variant

Dim FKAL_NR, FKAL_STR, FKAL_NAME As Variant

On Error GoTo Handle_Error

Call InitModule

If Class1 Is Nothing Then
Set Class1 = CreateObject("FTDE.Class1.1_0")
End If

' By default, MATLAB Builder EX returns just 1 output for M functions
' which have more than one outputs.

Call Class1.FTDE(3, FKAL_NR, FKAL_STR, FKAL_NAME, Jahr)
FTDE = FKAL_NR

' If you want to use all the return values, you can use the following
' code as a guideline. To use this form, call the function from Excel cell,
' highlight the cells which will receive the outputs and hit Ctrl+Shift+Enter.
'
' Call Class1.FTDE(3, FKAL_NR, FKAL_STR, FKAL_NAME, Jahr)
' FTDE = Array(FKAL_NR, FKAL_STR, FKAL_NAME)

Exit Function
Handle_Error:
FTDE = "Error in " & Err.Source & ": " & Err.Description
End Function

Funktion ohne Link?

Herzlichen Dank für Eure Hilfe!

Grüße, Stiffi


Einstellungen und Berechtigungen
Beiträge der letzten Zeit anzeigen:	Du kannst Beiträge in dieses Forum schreiben. Du kannst auf Beiträge in diesem Forum antworten. Du kannst deine Beiträge in diesem Forum nicht bearbeiten. Du kannst deine Beiträge in diesem Forum nicht löschen. Du kannst an Umfragen in diesem Forum nicht mitmachen. Du kannst Dateien in diesem Forum posten Du kannst Dateien in diesem Forum herunterladen

Impressum | Nutzungsbedingungen | Datenschutz | FAQ |

RSS

Hosted by:

Copyright © 2007 - 2024 goMatlab.de | Dies ist keine offizielle Website der Firma The Mathworks

MATLAB, Simulink, Stateflow, Handle Graphics, Real-Time Workshop, SimBiology, SimHydraulics, SimEvents, and xPC TargetBox are registered trademarks and The MathWorks, the L-shaped membrane logo, and Embedded MATLAB are trademarks of The MathWorks, Inc.