Seite 1 von 1
makro: Sicherungskopie erstellen
Verfasst: Do, 16.03.2006 16:10
von queensix
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
Verfasst: Do, 16.03.2006 16:28
von ykcim
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
Verfasst: Fr, 17.03.2006 10:49
von queensix
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
Verfasst: Fr, 17.03.2006 13:20
von ykcim
Du musst die Zelle einfach auslesen.
Entsprechend Deinem Datumsformat muß der String noch geändert werden.
Code: Alles auswählen
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
mfg
Michael
super
Verfasst: Fr, 17.03.2006 16:38
von queensix
gaanz vielen dank für die hilfe!
hat super geklappt
knutsch
queensix