OpenOffice.info

Hallo Bernhard!

Ich habe dir gerade im Calc-Forum eine Antwort gegeben.

viewtopic.php?f=2&t=23257

Gruss
Charly

Hallo, ich habe das Problem das ich einen Datenpilot per Makro aufrufen will, ich habe auch versucht das ganze mal aufzuzeichnen, aber irgendwie passiert nix, wenn ich den Makro dann aufrufe.

Die Tabelle hat 5 Blätter

Es muss praktisch folgendes getan werden:
Von Blatt 1 in Blatt 3 wechseln
Bereich von A5 -> D5 bis A1000 -> D1000 Markieren
Datenpilot aufrufen
Quelle= Aktuelle Selektion
Seitenfelder: Ausgabe
Zeilenfelder: Kürzel - Friedhof - ehem. Wohnort (die Felder kommen praktisch aus dem Tabellenblatt 3 bzw. dort sind sie als Überschriften in Zeile 5
Ausgabe: neues Tabellenblatt

FERTIG

Code: Alles auswählen
sub Datenpilot_Ausgabe2
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 = 5

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$10"

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

rem ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:DataDataPilotRun", "", 0, Array())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:DataPilotExec", "", 0, Array())

rem ----------------------------------------------------------------------
dim args5(0) as new com.sun.star.beans.PropertyValue
args5(0).Name = "ToPoint"
args5(0).Value = "$D$12"

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

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:HideColumn", "", 0, Array())


end sub



Weiss jemand wo es hängt??? bzw. warum er gar nix macht????