Programación General > Visual Basic 6.0 e inferiores

 Ayuda Con Codigo Para Exportar

(1/1)

mi69:
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

Brroz:
Hola.

Supongo que tu problema es que la variable que se asigna a un objeto Range debe ser una matriz dimensionada como el rango.

Chao.

mi69:
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.  :comp:

Navegación

[0] Índice de Mensajes