Tenemos en la empresa varias aplicaciones desarrolladas en VB6 y muchas
de las consultas las enviamos directamente a Excel (97) ahora estamos
evaluando migrar a OO2, y uno de los puntos a resolver seria ¿como
enviar esas consultas a OO2?
He estado revisando algunos documento de la web pero no me han sido de
mucha utilidad -o no , especialmente porque aun hablan de StarOffice y
no logro hacer funcionar los ejemplos que he encontrado.
Este es un ejemplo del código que utilizo para Excel (desde VB6), si
alguien tiene algún ejemplo similar que me pueda enviar, se los
agradecería enormemente.
Atte.
Victor Padilla.
Dim objExcel As Object
Dim strSQL As String
Set objExcel = CreateObject("Excel.Application")
Set Query = New ADODB.Recordset
strSQL = ""
strSQL = strSQL & "SELECT CAMPO_ID, CAMPO_NOMBRE "
strSQL = strSQL & "From TABLA_XYZ "
Query.Open strSQL, SQLdatos, , , adCmdUnknown
objExcel.Visible = True
objExcel.Workbooks.Add
objExcel.Range("A1").Select
If Query.EOF = False Then
Query.MoveFirst
End If
objExcel.DisplayAlerts = False
objExcel.Worksheets(1).Cells(1, 1) = "Registros encontrados"
objExcel.Worksheets(1).Cells(1, 1).Font.Bold = True
objExcel.Worksheets(1).Cells(2, 1) = "ID "
objExcel.Worksheets(1).Cells(2, 2) = "DESCRIPCION "
X = 2
Do While Not Query.EOF
X = X + 1
objExcel.Worksheets(1).Cells(X, 1) = Q2!CAMPO_ID
objExcel.Worksheets(1).Cells(X, 2) = Q2!CAMPO_NOMBRE
Query.MoveNext
Loop
Query.Close
objExcel.DisplayAlerts = True
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
