Makro OO Calc: Aus OTS ODT mit Zellnamen sichern

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

Stephan
********
Beiträge: 12369
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Re: Makro OO Calc: Aus OTS ODT mit Zellnamen sichern

Beitrag von 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