von Stephan » Mo, 07.03.2005 10:27
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
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/DevelopersGuide/DevelopersGuide.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]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[/code]
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