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
Speicherung einer Arbeitsmappe
Moderator: Moderatoren
-
- **
- Beiträge: 32
- Registriert: Mi, 05.12.2012 17:21
Re: Speicherung einer Arbeitsmappe
beispielhaft:
wenn Du nur den systemspezifischen Pfad (C:\_temp2\Fahrtenbuch_2001_jb.ods) in die Zelle schreiben willst, dann:
Gruß
Stephan
Code: Alles auswählen
args4(0).Value = ThisComponent.Sheets().getByIndex(0).getCellRangeByName("A1").FormulaLocal
Code: Alles auswählen
args4(0).Value = ConvertToUrl(ThisComponent.Sheets().getByIndex(0).getCellRangeByName("A1").FormulaLocal)
Gruß
Stephan
-
- **
- Beiträge: 32
- Registriert: Mi, 05.12.2012 17:21
Re: Speicherung einer Arbeitsmappe
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![Wink ;-)](./images/smilies/icon_wink.gif)
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
![Sad :-(](./images/smilies/icon_sad.gif)
Irgendwie muß ich dem Makro beibringen, das es den Zelleninhalt als Text interpretiert.
Vielleicht hast Du ja die Lösung
![Wink ;-)](./images/smilies/icon_wink.gif)
Re: Speicherung einer Arbeitsmappe
z.B.:
Gruß
Stephan
Code: Alles auswählen
args4(0).Value = ConvertToUrl(ThisComponent.Sheets().getByIndex(0).getCellRangeByName("A1").String)
Gruß
Stephan
-
- **
- Beiträge: 32
- Registriert: Mi, 05.12.2012 17:21
Re: Speicherung einer Arbeitsmappe
Whouw, danke - und das schon vor 6:ooh - also kurz nach Mitternacht ![Wink ;-)](./images/smilies/icon_wink.gif)
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.
![Wink ;-)](./images/smilies/icon_wink.gif)
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.