Copiar un grid en una tabla de word y en excel

Function rep_excel
Parameters lcursor,lnombre,titul_emp
*------
*esta funcion lleva un cursor a excel
**recibe parametros
**lcursor: Nombre del Cursor que se va a llevar a excel
**lnombre: El titulo de la pagina
***---
Local lpag
lpag=1
Wait WINDOW 'Abriendo aplicación Excel.' NOWAIT
Oexcel = CREATEOBJECT("Excel.Application")
Wait CLEAR
If TYPE('Oexcel')#'O'
=MESSAGEBOX("No se puede procesar el archivo porque no tiene la aplicación"+CHR(13)+;
"Microsoft Excel instalada en su computador.")
Return .F.
Endif
***CREO EL OLE A EXCEL
Oexcel.VISIBLE=.T.
XLApp = Oexcel
XLApp.workbooks.ADD()
XLSheet = XLApp.ActiveSheet
XLSheet.NAME='Hoja_'+alltr(str(lpag))
Select &lcursor
=AFIELDS(lcampos,'&lcursor')
lcuantos=ALEN(lcampos)/16
Go top in &lcursor
Local R,lcampo
R=6
Do WHILE !EOF("&lcursor")
If R=60000
For I = 1 TO lcuantos
lcname=lcampos(I,1)
XLSheet.Cells(4,I).VALUE=lcname
XLSheet.Cells(4,I).FONT.NAME = "Arial"
XLSheet.Cells(4,I).FONT.SIZE = 10
XLSheet.Cells(4,I).FONT.bold = .T.
Next
XLSheet.COLUMNS.AutoFit
XLSheet.Cells(2,1).VALUE=lnombre
R=6
lpag=lpag+1
XLApp.Sheets(lpag).Select
XLSheet = XLApp.ActiveSheet
XLSheet.NAME='Hoja_'+alltr(str(lpag))
Endif
For I=1 to lcuantos
lcampo=alltrim(lcursor)+'.'+lcampos(I,1)
If type('&lcampo')='C'
XLSheet.Cells(R,I).VALUE=ALLTRIM(&lcampo)
XLSheet.Cells(R,I).FONT.NAME = "Arial"
XLSheet.Cells(R,I).FONT.SIZE = 10
Else
If type('&lcampo')='T'
XLSheet.Cells(R,I).VALUE=TTOC(&lcampo)
Else
XLSheet.Cells(R,I).VALUE=&lcampo
Endif
XLSheet.Cells(R,I).FONT.NAME = "Arial"
XLSheet.Cells(R,I).FONT.SIZE = 10
Endif
Next
R=R+1
Skip IN &lcursor
Enddo
For I = 1 TO lcuantos
lcname=lcampos(I,1)
XLSheet.Cells(4,I).VALUE=lcname
XLSheet.Cells(4,I).FONT.NAME = "Arial"
XLSheet.Cells(4,I).FONT.SIZE = 10
XLSheet.Cells(4,I).FONT.bold = .T.
Next
XLSheet.COLUMNS.AutoFit
XLSheet.Cells(2,1).VALUE=lnombre
Return .t.
Endfunc