von Pretender1970 » Fr, 03.09.2021 12:13
Hallo Zusammen,
ich habe ein Tabellenblatt erstellt und habe nun das unten aufgeführte Makro hinterlegt.
Das Problem ist, dass das Makro beim neu generierten Blatt nicht mehr vorhanden ist und
immer der Entwurfmodus an ist. Kann mich jemand unterstützen?
Gruß Marc
Sub Export()
Dim Sheet As Object
Sheet = ThisComponent.Sheets.getByName("Sonderurlaub")
ThisComponent.CurrentController.setActiveSheet(Sheet)
dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
Dim args1(2) as new com.sun.star.beans.PropertyValue
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
args1(0).Name = "DocName"
args1(0).Value = ""
args1(1).Name = "Index"
args1(1).Value = 1
args1(2).Name = "Copy"
args1(2).Value = true
dispatcher.executeDispatch(document, ".uno:Move", "", 0, args1())
End Sub
Hallo Zusammen,
ich habe ein Tabellenblatt erstellt und habe nun das unten aufgeführte Makro hinterlegt.
Das Problem ist, dass das Makro beim neu generierten Blatt nicht mehr vorhanden ist und
immer der Entwurfmodus an ist. Kann mich jemand unterstützen?
Gruß Marc
Sub Export()
Dim Sheet As Object
Sheet = ThisComponent.Sheets.getByName("Sonderurlaub")
ThisComponent.CurrentController.setActiveSheet(Sheet)
dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
Dim args1(2) as new com.sun.star.beans.PropertyValue
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
args1(0).Name = "DocName"
args1(0).Value = ""
args1(1).Name = "Index"
args1(1).Value = 1
args1(2).Name = "Copy"
args1(2).Value = true
dispatcher.executeDispatch(document, ".uno:Move", "", 0, args1())
End Sub