Visual Basic - Problemas Exportando Datos a Excel

Life is soft - evento anual de software empresarial
 
Vista:

Problemas Exportando Datos a Excel

Publicado por Gochor (2 intervenciones) el 31/05/2005 19:39:24
Tengo un problema algo extraño con la exportación de datos de una consulta a Excel. LA operación que realizo es la siguiente, hago una consulta SQL, que va a para a un DBGRID y estos datos los exporto a una planilla Excel que se graba en el disco rígido. En la PC que dasarrollo la aplicación (Tengo instalado Win XP) todo funciona bine, pero cuando compilo es instalo el programa en otra PC, cuando le pido a la aplicación que realice la exportación, no genera ningún archivo. Probe en Win XP, 98 y no paso nada. Yo sospecho que puede ser algo relacioando con los ODBC.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Problemas Exportando Datos a Excel

Publicado por SetFocus (183 intervenciones) el 31/05/2005 22:27:29
Hola! no se como trabajas para automatizar excel, pero aca te paso un ejemplo de como pasar e contenido de un recordset a exel, funciona bastante bien, lo use en alguna vez... En el ejemplo se usa la base de datos Northwind que viene con access. Espero te sirva.Saludos

'Crea el Recordset de todos los registros de la tabla Orders
Dim sNWind As String
Dim conn As New ADODB.Connection
Dim rs As ADODB.Recordset

sNWind = "C:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb"
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sNWind & ";"
conn.CursorLocation = adUseClient
Set rs = conn.Execute("Orders", , adCmdTable)

'Crea un nuevo Libro en Excel
Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)

'Transfiere los datos a Excel
xlSheet.Range("A1").CopyFromRecordset rs

'Salva los datos y cierra Excel
xlBook.SaveAs "c:\Mis Documentos\Ejemplo.xls"
xlApp.Quit

'Cierra la conexion
rs.Close
conn.Close
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar