Speicherung einer Arbeitsmappe

[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]

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]

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]

z.B.:

Code: Alles auswählen

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

Gruß
Stephan

[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.