Makro OO Calc: Aus OTS ODT mit Zellnamen sichern

[Andreas84CH]

Hilfe... ich beisse mir die Zähne aus.
Mein Problem ist, dass ich bei OO mit einer OTS Vorlage beim öffnen eine neue Datei erstelle. Die soll via Makro gesichert werden und zwar so, dass Sie wie ein Zelleninhalt (S18) heisst. Mein Problem ist, dass ich von mehreren Pcs aus zugreifen muss, ich also keinen festen speicherpfad verwenden kann.
Ich bekomme das einfach nicht hin...

Code: Alles auswählen

Sub Speichern_15
dim dummy()
myDoc=thisComponent
mySheet=myDoc.sheets(0)
myCell=mySheet.getCellByPosition(18,17)
myString=myCell.string
datei="USERPROFILE" & "\" & myString & ".ods"
dateiurl=converttourl(datei)
odoc=ThisComponent.DocumentProperties.TemplateURL
odoc.storeasurl(dateiurl,dummy())
END SUB

[Stephan]

"USERPROFILE" ist ein Text (ein String) und kein Speicherort. Ein Speicherort ist die Rückgabe des Wertes der Umgebungsvariablen "USERPROFILE" mittels der Funktion Environ:

Code: Alles auswählen

speicherort = Environ("USERPROFILE")

außerdem gibt:

Code: Alles auswählen

odoc=ThisComponent.DocumentProperties.TemplateURL

keinen Sinn, so wie es verwendet wurde.

zum Letzten sollte man wohl besser ein leeres Parameterarray übergeben (ich habe gerade geprüft das es auch ohne geht, aber ich würde das trotzdem tun), also:

Code: Alles auswählen

dummy = Array()

also:

Code: Alles auswählen

Sub Speichern_15
dim dummy()
dummy = Array()
myDoc=thisComponent
mySheet=myDoc.sheets(0)
myCell=mySheet.getCellByPosition(18,17)
myString=myCell.string
datei = Environ("USERPROFILE") & "\" & myString & ".ods"
dateiurl=converttourl(datei)
myDoc.storeasurl(dateiurl, dummy())
END SUB

Gruß
Stephan

[Andreas84CH]

VIELEN LIEBEN DANK

Es klappt gebauso. Ich habe den Pfad noch angepasst, aber es ist genau richtig!

Merci ..!