Speicherung einer Arbeitsmappe

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

Lupo121205
**
Beiträge: 32
Registriert: Mi, 05.12.2012 17:21

Speicherung einer Arbeitsmappe

Beitrag von Lupo121205 »

Hi, ich möchte eine Arbeitsmappe als eine Datei speichern, deren Name ich in einer Zelle hinterlegt habe.
Habe hierfür ein Makro aufgezeichnet - hier ist leider der Dateiname fest hinterlegt.

dim args4(1) as new com.sun.star.beans.PropertyValue
args4(0).Name = "URL"
args4(0).Value = "file:///C:/_temp2/Fahrtenbuch_2001_jb.ods"
args4(1).Name = "FilterName"
args4(1).Value = "calc8"

dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, args4())

Wie schaffe ich es, statt "file:///... eine Zellreferenz einzubauen?

Danke für die Hilfe Lupo
Stephan
********
Beiträge: 12369
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Re: Speicherung einer Arbeitsmappe

Beitrag von Stephan »

beispielhaft:

Code: Alles auswählen

args4(0).Value = ThisComponent.Sheets().getByIndex(0).getCellRangeByName("A1").FormulaLocal
wenn Du nur den systemspezifischen Pfad (C:\_temp2\Fahrtenbuch_2001_jb.ods) in die Zelle schreiben willst, dann:

Code: Alles auswählen

args4(0).Value = ConvertToUrl(ThisComponent.Sheets().getByIndex(0).getCellRangeByName("A1").FormulaLocal)

Gruß
Stephan
Lupo121205
**
Beiträge: 32
Registriert: Mi, 05.12.2012 17:21

Re: Speicherung einer Arbeitsmappe

Beitrag von Lupo121205 »

Danke Stefan, probiere ich jetzt noch aus und berichte dann.

Hi Stephan, habe den ganzen Abend herumgedocktert und dann festgestellt:
1. So wie Du es geschrieben hast FUNKTIONIERT es – AAAAAAber meine Definition war nicht korrekt - sorry
2. In der besagten Zelle "A1" steht kein Textinhalt sondern eine zusammengesetzte Funktion, z.B. "=links(B1;8)&text(Jahr(C3);2)&".ods"

Und so geht es leider nicht :-(
Irgendwie muß ich dem Makro beibringen, das es den Zelleninhalt als Text interpretiert.

Vielleicht hast Du ja die Lösung ;-)
Stephan
********
Beiträge: 12369
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Re: Speicherung einer Arbeitsmappe

Beitrag von Stephan »

z.B.:

Code: Alles auswählen

args4(0).Value = ConvertToUrl(ThisComponent.Sheets().getByIndex(0).getCellRangeByName("A1").String)

Gruß
Stephan
Lupo121205
**
Beiträge: 32
Registriert: Mi, 05.12.2012 17:21

Re: Speicherung einer Arbeitsmappe

Beitrag von Lupo121205 »

Whouw, danke - und das schon vor 6:ooh - also kurz nach Mitternacht ;-)

Wie nicht anders zu erwarten funktioniert das so, wie Du es geschrieben hast!

Mehr brauche ich nicht: jetzt kann ich mit eigenen Parametern Dateien unter einem selbstdefinierten Namen (Url) speichern.
Antworten