Hola,
Creo que lo mejor será un ejemplo, si tienes alguna duda mas no dudes en
consultar. Hay un libro en PDF muy completo sobre automatizacion con
OpenOffice, ahora no recuerdo su titulo ni donde lo tengo, si lo necesitas
te lo busco.
Dim oServMan As Object
Dim oDesktop As Object
Dim oDocument As Object
Dim oSheets As Object, oSheet As Object
Dim oCell As Object
Dim mArgs(0) As Object
Dim sUrl As String
Dim ValorCelda as String
Dim Archivo As String
' ******* Creamos la conexion con OpenOffice
Set oServMan = CreateObject("com.sun.star.servicemanager")
Set oDesktop = oServMan.createinstance("com.sun.star.frame.Desktop")
' ******* Ahora si quieres abrir una hoja en blanco (para exportar tus
datos a la hoja)......
sUrl = "private:factory/scalc"
' ******* O si quieres abrir un archivo existente.......
Archivo="C:\Carpeta\archivo.sxc"
' ******* Para abrir un archivo de OpenOffice necesitas tener su ruta en
formato URL, en este caso seria: file:///C|/Carpeta/archivo.sxc
' ******* tienes que sustituir "C:" por file:///C|, las barras de
windows "\" por "/", los espacios por "%20", etc.
sUrl = PathToURL(Archivo)
' ******** Abrimos el archivo
Set oDocument = oDesktop.LoadComponentFromURL(sUrl, "_blank", 0, mArgs)
Set oSheets = oDocument.Sheets()
Set oSheet = oSheets.getByIndex(0)
' ******* y accedes a sus datos, primero te situas en una celda con
"getcellbyposition(columna, fila)", teniendo en cuenta que openoffice
empieza a contar en 0, es decir, la celda "A1" la representarias como
getcellbyposition(0,0)
Set oCell = oSheet.getcellbyposition(0, 0)
ValorCelda=oCell.String
----- Original Message -----
From: "Maximiliano" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>; <[email protected]>
Sent: Monday, December 10, 2007 6:37 PM
Subject: [dev] Consulta Calc y Visual Basic 6
Buenas, estoy intentando adaptar todas mis aplicaciones a que trabajen
directamente con OpenOffice, pero me he encontrado con ciertos
inconvemientes, por esto queria consultarles como acceder a una hoja de
una
planilla de cálculo en Calc desde una aplicación VB 6.0.
La idea es importar datos guardados en ella para poder procesarlos con la
aplicacion. Básicamente deseo saber como establecer la conexión y obtener
los datos.
Desde ya, muchisimas gracias!
Maximiliano Caveggia
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
