Ayuda Con Codigo Para Exportar

[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