Makro OO Calc: Aus OTS ODT mit Zellnamen sichern

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

Moderator: Moderatoren

Andreas84CH

Makro OO Calc: Aus OTS ODT mit Zellnamen sichern

Beitrag von Andreas84CH » Fr, 29.09.2017 18:35

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
********
Beiträge: 10053
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

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

Beitrag von Stephan » 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:

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

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

Beitrag von Andreas84CH » Mo, 02.10.2017 13:00

VIELEN LIEBEN DANK

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

Merci ..!

Antworten

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 10 Gäste