Aufrufen eines Macros in einem Macro [gelöst]

[Bergkaffee]

Hallo zusammen,
nachdem ich mich schon wund gegoogelt habe und zu keinem Ergebniss gekommen bin würde ich mich über ein wenig Hilfe sehr freuen.
Ich habe erst vor ein paar Tagen damit begonnen mich mit Macros auseinander zu setzen und konnte bis jetzt auch alles mit viel Zeit und Google soweit immer ins Trockene retten. Jetzt bin ich allerdings auf Sand gelaufen:

Hier mein Problem:
Ich möchter in diesem Makro


dieses Makro aufrufen.


Das Makro ist im prinzip recht minimalistisch:

Code: Alles auswählen

sub InputStartsystemCalcTools
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$A$3"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())

rem ----------------------------------------------------------------------
rem HIER SOLL DAS MAKRO AUSGEFÜHRT WERDEN

end sub

Kann mir jemand weiterhelfen?

[MWi]

Hallo Bergkaffee,

es muss zunächst die Bibliothek - in der das andere Makro abgelegt ist - geladen werden:

Code: Alles auswählen

GlobalScope.BasicLibraries.loadLibrary( "CalcTools01" )

Danach kann das darin abgelegte Makro aufgerufen werden.

Code: Alles auswählen

CSVDateiEinfuegenDialog

Freundlicher Gruß

Michael

[Bergkaffee]

Vielen Dank! Mit "CalcTools01" hat es nicht funktioniert aber mit "Calc_Tools" funktioniert es nun Problemlos.

Hier das endgültige Ergebnis:

Code: Alles auswählen

sub InputStartsystemCalcTools
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem -Zu Erster Zelle---------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$A$3"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())

rem -CSV importieren---------------------------------------------------------------------
GlobalScope.BasicLibraries.loadLibrary("Calc_Tools")
CSVDateiEinfuegenDialog

rem -Zu Ausgangsfeld---------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "ToPoint"
args3(0).Value = "$K$2"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args3())

end sub