AYUDA CON CODIGO PARA EXPORTAR

miguel
19 de Noviembre del 2004
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

JORGE
19 de Noviembre del 2004
PUES MIRA YO PROBE TU CODIGO T TIENES MAL ALGUNAS COSAS.

Dim Pxls As New Excel.Application
Pxls.Workbooks.Open App.Path & "caja.xls"
Pxls.Visible = True
numron = DATOSC.Row
For I = 1 To 2
DATOSC.Row = I
For j = 0 To 11
DATOSC.Col = j
Pxls.Worksheets(1).Range(CStr(regresacaracter(j) & I)).Value = DATOSC.Text
Next j
Next I
Pxls.ActiveWorkbook.SaveAs "C:" & SEGMENTOE.Text & ".XLS"
Pxls.ActiveWorkbook.Close

AL PARECER NO CUENTA LOS RENGLONES.

Y LOS INDICES NO LES PONHAS .

DESPUES DE CORREGIRLE ALGUNAS COSITAS , ESTE CODIGO SI ME FUNCIONO.

CUALQUIER DUDA MANDAME UNA MAIL