Excel-Dateien automatisch in OpenOffice Calc einlesen

Das Tabellenkalkulationsprogramm

Moderator: Moderatoren

steschae
Beiträge: 2
Registriert: Do, 03.03.2005 10:41

Excel-Dateien automatisch in OpenOffice Calc einlesen

Beitrag von steschae »

Hallo,

gibt es in OpenOffice Calc eine Möglichkeit (z. B. aus der Kommandozeile) eine Excel-Datei einzulesen und diese dann als als OpenOffice Calc Datei speichern?
Mein Betriebssystem ist SuSE Linux 9.2.
Stephan
********
Beiträge: 12369
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Beitrag von Stephan »

warum soll es Kommandozeile sein?
Geht nicht ein Makro?

Gruß
Stephan
steschae
Beiträge: 2
Registriert: Do, 03.03.2005 10:41

Beitrag von steschae »

Ich habe folgendes vor:
Eine Menge an Excel-Dokumenten ins OpenOffice Format konvertieren und die erstellten (komprimierten) XML Dateien in einem Java-Programm einlesen und in eine Datenbank schreiben.
Dieser Vorgang sollt möglichst vollautomatisch funktionieren.
Das Auslesen der XML Datei ist bereits realisiert. Es wäre daher von Vorteil das konvertieren über die Kommandozeile zu realisieren, da dies von meinem Java-Programm ebenso getätigt werden könnte.

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

Beitrag von Stephan »

Also, ich würde das rein mit Java machen. Ich habe leider keine Ahnung von Java und Linux. Du kannst aber sicher sein das es geht. Reichlist Beispiel-Code für Java/OOo findest Du im DevelopersGuide http://api.openoffice.org/DevelopersGui ... Guide.html
Damit dürfte es Dir nicht schwer fallen das Folgende in Java umzuschreiben.
Der folgende Code zeigt am Beispiel einer Datei wie es in VBA zu erledigen wäre:

Code: Alles auswählen

Private Sub CommandButton1_Click()
'ACHTUNG: VBA-Code!
Set oServiceManager = CreateObject("com.sun.star.ServiceManager")
Set oDesktop = oServiceManager.createInstance("com.sun.star.frame.Desktop")
Dim aNoArgs()
URL = "File:///D:/Test/test.xls"
Set Doc = oDesktop.loadComponentFromURL(URL, "_blank", 0, aNoArgs())
sURL = "File:///D:/Test/test.sxc"
Dim exportEigenschaften(0) As Object
Set exportEigenschaften(0) = oServiceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
exportEigenschaften(0).Name = "FilterName"
exportEigenschaften(0).Value = "MS Excel 97"
Call Doc.storeToURL(sURL, exportEigenschaften())
Call Doc.dispose
End Sub
Ich weiß das Du es mit Deinem Code machen willst, ich erwähne jedoch:
-den existierenden Dokumentenconverter: http://www.ooomacros.org/user.php#95532
-die Möglichkeit über: Datei>Autopilot>Dokumentenkonverter

Gruß
Stephan
Antworten