OpenOffice.info

speicherort = Environ("USERPROFILE")

odoc=ThisComponent.DocumentProperties.TemplateURL

dummy = Array()

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

"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]speicherort = Environ("USERPROFILE")
[/code]

außerdem gibt:

[code]odoc=ThisComponent.DocumentProperties.TemplateURL[/code]

keinen Sinn, [u]so wie es verwendet wurde[/u].

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]dummy = Array()
[/code]
also:

[code]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
[/code]
Gruß
Stephan