Forums:
Bueno tardes gente del foro estube probando open office en las tareas diarias de la empresa en donde trabajo y me propusieron que haga un informe para poder utilizar este software (openoffice) en la empresa entonces hasta ahora no me encuentro con ningun problema, pero vi que en el sistema que esta hecho VisualBasic 6 sacan reportes que lo emiten en excel 2003 de MS office, lo que quisiera saber es q si en open office tambien se podria sacar estos reportes osea programarlo en vB 6 y sacar los reportes por calc de open office.
otra consulta el sistema del q les hable que esta en VB 6 puede correr en alguna distribucion de Linux o la solucion seria migrar el sistema a WEB para asi los empleado puedan utilizar alguna distribucion de linux y poder utilizar el sistema sin problemas.
epero comentarios gracias
Por supuesto que hay como,
Por supuesto que hay como, es mas te voy a dar el codigo:
Este ejemplo lee un grid y lo exporta a openoffice calc
Dim oServiceManager As Object
Dim oDesktop As Object
Dim oDoc As Object
Dim oSheet As Object
Dim columna As Object
Dim aNoArgs()
Set oServiceManager = CreateObject("com.sun.star.ServiceManager")
Set oDesktop = oServiceManager.createInstance("com.sun.star.frame.Desktop")
Set oDoc = oDesktop.loadComponentFromURL("private:factory/scalc", "_blank", 0, aNoArgs())
Set oSheet = oDoc.getSheets().getByIndex(0)
oSheet.getCellByPosition(0, 0).SetString ("FACTURA")
oSheet.getCellByPosition(1, 0).SetString ("FECHA")
oSheet.getCellByPosition(2, 0).SetString ("PRODUCTO")
oSheet.getCellByPosition(3, 0).SetString ("CANTIDAD")
oSheet.getCellByPosition(4, 0).SetString ("PRECIO")
oSheet.getCellByPosition(5, 0).SetString ("VALOR FACTURA")
oSheet.getCellByPosition(6, 0).SetString ("CONSUMIDOR")
oSheet.getCellByPosition(7, 0).SetString ("DESCRIPCION")
Dim r As Integer
Dim c As Integer
For r = 1 To Grid.Rows - 2
For c = 0 To Grid.Cols - 1
Grid.Row = r
Grid.Col = c
If c = 3 Or c = 4 Or c = 5 Then
oSheet.getCellByPosition(c, r).SetValue (Grid.Text)
Else
oSheet.getCellByPosition(c, r).SetString (Grid.Text)
End If
Next
Next
oSheet.getCellByPosition(0, r).SetString ("TOTAL")
oSheet.getCellByPosition(2, r).SetFormula ("=ROW()-2")
oSheet.getCellByPosition(3, r).SetFormula ("=SUM(D2:D" & r & ")")
oSheet.getCellByPosition(4, r).SetFormula ("=SUM(E2:E" & r & ")")
Ahora lo que te pido es que lo pruebes y postees de tu experiencia en coplec.org
explica el ejemplo para que los demas puedan tambien aprender.
www.coplec.org
Comunidad de Programadores de Software Libre del Ecuador
gracias Hermano seguro que
gracias Hermano seguro que lo hare dame una semanita nomas
Yo no quiero el exito el exito no es nada solo sigue el Sistema y el Sistema te mata
No he visto aplicaciones de
No he visto aplicaciones de VB corriendo BIEN con WINE, alguien si ...???
Con todo podrías probar ...
O la otra es virtualizar para usar es aplicación, ya postearon en el foro un tema al respecto, para que se integre bonito con el escritorio de tu linux ...
bye
:)
ayuda
hola amigos disculpen no se si me podrian ayudar es que estado buscando lop que explican arriba. mi msflexgrid contiene datos de una base de datos con sus item === titulos de las columnas y sus filas quisiera sabes como paso todo lo que esta en el grid a un archivo de opennoffice calc ya que donde voy a implementar el sistema maneja openoffice por favor