von knpe » Do, 28.12.2023 16:07
Hallo
ich möchte eine Zeile per Macro auswählen und diese kopieren. Die kopierte Zeile soll dann in einer anderen Datei wieder eingefügt werden (dies aber manuell)
Versuch 1:
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 ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
Versuch 2:
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 Args()
oCtrl = ThisComponent.CurrentController
oCtrl.Select(oCtrl.ActiveSheet.GetCellRangeByName("A55:"+"BH55")
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Args())
Beide Versuche funktionieren nicht.
Es wird immer ein anderer zuvor kopierter Text in ein neues Tabellenblatt eingefügt
Hallo
ich möchte eine Zeile per Macro auswählen und diese kopieren. Die kopierte Zeile soll dann in einer anderen Datei wieder eingefügt werden (dies aber manuell)
Versuch 1:
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 ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
Versuch 2:
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 Args()
oCtrl = ThisComponent.CurrentController
oCtrl.Select(oCtrl.ActiveSheet.GetCellRangeByName("A55:"+"BH55")
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Args())
Beide Versuche funktionieren nicht.
Es wird immer ein anderer zuvor kopierter Text in ein neues Tabellenblatt eingefügt