abrir documentos de OpenOffice 2 y editarlos

[darkhack]

Hola amigos, quisiera pedirles su ayuda para hacer k desde visual Basic 6 se puedan abrir documentos de OpenOffice 2 y editarlos, es que la vdd no tengo ni idea de como hacerlo
Bueno espero y puedan ayudarme
De ante mano gracias !!!!

[Frehley]

Por favor no repitas temas.
Probaste con CommonDialog?

[darkhack]

Iniciado por Frehley

Por favor no repitas temas.
Probaste con CommonDialog?

no repeti el tema intencionalmente fue un error , Oigan enserio necesito ayuda con este tema...!!!!
Ahora quien podra ayudarme !!!??

[Haize25]

Supongo que este código te ayudará... al menos es un comienzo.
Un saludo


Private Sub B_CrearCalc_Click()
Dim args()
Dim objServiceManager As Object
Dim objDesktop As Object
Dim objDocument As Object
Dim objHoja As Object

Set objServiceManager = CreateObject("com.sun.star.ServiceManager")
Set objDesktop = objServiceManager.createInstance("com.sun.star.fra me.Desktop")
Set objDocument = objDesktop.loadComponentFromURL("private:factory/scalc", "_blank", 0, args)

Set objHoja = objDocument.getSheets().getByIndex(0)
Call objHoja.getCellByPosition(0, 0).SetFormula("Meses")
Call objHoja.getCellByPosition(1, 0).SetFormula("Ventas")
Call objHoja.getCellByPosition(0, 1).SetFormula("Enero")
Call objHoja.getCellByPosition(0, 2).SetFormula("Febrero")
Call objHoja.getCellByPosition(0, 3).SetFormula("Marzo")
Call objHoja.getCellByPosition(1, 1).SetValue(3827)
Call objHoja.getCellByPosition(1, 2).SetValue(3978)
Call objHoja.getCellByPosition(1, 3).SetValue(4103)

Set objServiceManager = Nothing
Set objDesktop = Nothing
Set objDocument = Nothing
Set objHoja = Nothing
End Sub

[darkhack]

gracias "Haize25" me acabas de ayudar mucho !!!!!