Re: Makro OO Calc: Aus OTS ODT mit Zellnamen sichern
Verfasst: Sa, 30.09.2017 08:01
"USERPROFILE" ist ein Text (ein String) und kein Speicherort. Ein Speicherort ist die Rückgabe des Wertes der Umgebungsvariablen "USERPROFILE" mittels der Funktion Environ:
außerdem gibt:
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:
also:
Gruß
Stephan
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