Code: Alles auswählen
speicherort = Environ("USERPROFILE")
Code: Alles auswählen
odoc=ThisComponent.DocumentProperties.TemplateURL
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()
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
Stephan