ich habe mir mit dem Makro Recorder ein paar Abläufe aufgenommen, um diese zu automatisieren und folgendes Problem festgestellt.
Ich wähle eine bestimme Tabelle in meinem Sheet aus um einen Bereich zu kopieren und um diesen in einer anderen Tabelle wieder einzufügen.
Code: Alles auswählen
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 = "Nr"
args1(0).Value = 31
dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args1())
rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "$B$29:$Q$40"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
rem ----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "Nr"
args4(0).Value = 32
dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args4())
Code: Alles auswählen
args1(0).Name = "Nr"
args1(0).Value = 31
Wie kann ich in dieser Prozedur anstatt der Nummer den Tabellen Namen übergeben um so immer eine korrekte Zuordnung zu gewährleisten?
Vielen Dank.