Hallo Liste,
Zum Speichern einer Datei habe ich ein Makro, dass mir meine Calc
Tabelle einmal als CSV und danach wieder als ODT speichert.
Mit Button kompiniert, funktioniert das auch prima auf meiner Linux-
Büchse.
Kunden werden diese Datei aber über Windows aufrufen. Der Pfad ist
dann nicht mehr:
/home/icnbg/projekte/startfolder/icnbg/oogpm/int_doku/qm/swm/
sondern
[D...Z]:\\ServerName\int_doku\swm
(so ungefähr)
MEINE FRAGE:
Wie kann ich aus dem absoluten Pfad einen relativen machen.
Unter Linux kann man sagen ./ (Punkt Schräger) für das
aktuelle Verzeichnis in dem ich die Datei aufgerufen habe.
Wie kann ich das auf Windows konvertieren. Der Kunde (unter Windows)
wird die Datei aufrufen modifizieren und dann auf dem Speichern-
Button drücken, der unten angezeigten BASIC-Code ausführt. Ich
vermute das das Windows-LO mit diesem Linux-Pfad nicht funktionieren
wird.
Was tun ?
Danke für die Hinweise !
Gruß aus Nürnberg
Achim
-------------------------------------------------------------------
sub SAVE_as_CSV_and_ODS
rem
----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem
----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem
----------------------------------------------------------------------
dim args1(2) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value =
"file:///home/icnbg/projekte/startfolder/icnbg/oogpm/int_doku/qm/swm/NACE_000000.csv"
args1(1).Name = "FilterName"
args1(1).Value = "Text - txt - csv (StarCalc)"
args1(2).Name = "FilterOptions"
args1(2).Value = "59,0,76,1"
dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, args1())
rem
----------------------------------------------------------------------
dim args2(1) as new com.sun.star.beans.PropertyValue
args2(0).Name = "URL"
args2(0).Value =
"file:///home/icnbg/projekte/startfolder/icnbg/oogpm/int_doku/qm/swm/NACE_000000.ods"
args2(1).Name = "FilterName"
args2(1).Value = "calc8"
dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, args2())
end sub
-------------------------------------------------------------------
--
openSUSE 11.4
KDE – Frei sein!
Plattform-Version 4.6.00 (4.6.0) "release 6"
LibreOffice 3.3.4
OOO340m1 (Build:502)
---
„Mir, ... war die konsequente Rechtschreibung immer ziemlich
gleichgültig. Wie dieses oder jenes Wort geschrieben wird, darauf
kommt es doch eigentlich nicht an, sondern darauf, daß die Leser
verstehen, was man damit sagen wollte.“
Johann Wolfgang von Goethe (1749-1832), dt. Dichter.
--
Liste abmelden mit E-Mail an: [email protected]
Probleme?
http://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: http://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: http://listarchives.libreoffice.org/de/users/
Alle E-Mails an diese Liste werden unlöschbar öffentlich archiviert
