SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: mi69 en Miércoles 27 de Octubre de 2004, 15:31

Título: Ayuda Con Codigo Para Exportar
Publicado por: mi69 en Miércoles 27 de Octubre de 2004, 15:31

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

Título: Re: Ayuda Con Codigo Para Exportar
Publicado por: Brroz en Martes 2 de Noviembre de 2004, 12:02

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.

Título: Re: Ayuda Con Codigo Para Exportar
Publicado por: mi69 en Miércoles 3 de Noviembre de 2004, 12:57

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: