SoloCodigo

Hola:

Por favor necesito ayuda con este codigo, tengo que exportar los datos de un datagrid a excel pero no esta funcionando.

Gracias

Private Sub CommandExport_Click()

Dim Pxls as Object
Set Pxls = CreateObject("Excel.Application")
Pxls.Workbooks.Open "C:\Proyecto\Reportes\Reporte.xls"
Pxls.Workbooks.Open App.Path & "\Reporte.xls"
Pxls.Visible = False
Pxls.Worksheets("Hoja1").Activate

For i = 1 To grdDataGrid.Row - 1
grdDataGrid.Row = i
sCaracter = Char(64 + i)
For j = 1 To grdDataGrid.Col - 1
grdDataGrid.Col = j
xValorCelda = grdDataGrid.Text
sCelda = sCaracter & j
Pxls.Worksheets("Hoja1").Range(sCelda).Value = xValorCelda
xValorCelda = Pxls.Worksheets("Hoja1").Range(sCelda).Value
Next j
Next i
Pxls.ActiveWorkbook.Close SaveChanges:=True

End Sub

No era eso, el problema es que me conecto con Ado y tengo instalado Office 97. Para usar el CopyFromRecordset con Ado, tengo que usar una versión de Excel superior al 2000.... (caprichos de Microsoft)

Pero si usas Dao no hay problema..... funciona perfecto y hace la transferencia muy rapido.

Gracias por responder.