OpenOffice.info

:D gaanz vielen dank für die hilfe!
hat super geklappt
knutsch
queensix

Sub Speichern
 GlobalScope.BasicLibraries.LoadLibrary("Tools")
 dim dummy()
 odoc=thisComponent
 osheet=odoc.sheets(0)
 mycell = osheet.getCellRangeByName("$A$1")
 FileN = mycell.string + ".odt"
 dateiurl=odoc.url
REM FileN=FileNameoutofPath(dateiurl)
 neuerpfad="f:\neue\"+FileN
 dateiurl=converttourl(neuerpfad)
 odoc.storetourl(dateiurl,dummy())
End Sub

Du musst die Zelle einfach auslesen.
Entsprechend Deinem Datumsformat muß der String noch geändert werden.


[code]
Sub Speichern
GlobalScope.BasicLibraries.LoadLibrary("Tools")
dim dummy()
odoc=thisComponent
osheet=odoc.sheets(0)
mycell = osheet.getCellRangeByName("$A$1")
FileN = mycell.string + ".odt"
dateiurl=odoc.url
REM FileN=FileNameoutofPath(dateiurl)
neuerpfad="f:\neue\"+FileN
dateiurl=converttourl(neuerpfad)
odoc.storetourl(dateiurl,dummy())
End Sub
[/code]

mfg
Michael

Hallo ykcim

Vielen Dank für Deine super Antwort! klappt wie sau! lach
noch eins: hatte in meiner ursprüngliche excel-tabelle es so eingerichtet, daß die sicherungskopie unter dem neuen pfad, mit angabe von monat und einer Angabe gespeichert wird - Bsp: "datei 02 2006-05". die 02, das jahr und der monat wurden aus entsprechenden zellen ausgelesen.
geht das auch? damit wäre mein problem voll gelöst!
vielen lieben dank nochmal

queensix

In etwa so:
Das geöffnete Dokument bleibt offen und ein Kopie wird erstellt.

Sub Speichern
GlobalScope.BasicLibraries.LoadLibrary("Tools")
dim dummy()
odoc=thisComponent
dateiurl=odoc.url
FileN=FileNameoutofPath(dateiurl)
neuerpfad="f:\neue\"+FileN
dateiurl=converttourl(neuerpfad)
odoc.storetourl(dateiurl,dummy())
End Sub


mfg
Michael

hallöchen an das forum!
möchte nun endlich von microsoft office weg und open-office verwenden.
bin gerade dabei, alle meine dateien von excel auf calc umzurüsten und es gibt ein paar probleme mit den makros.
ich möchte:
eine datei beim klick auf einen button an eine andere stelle/pfad kopieren (sicherungskopie), aber mit der alten weiterarbeiten.
tue mich noch sehr schwer mit der syntax...

liebe grüße
queensix