Pasar datos de una tabla a excel uno por uno

wc_tabla = putfile("Guardar como"," ", "xls")
if !empty(wc_tabla) then
LOCAL cErrores, lExcel
cErrores = ON("ERROR")
ON ERROR lExcel = .F.
oExcel = GetObject(,"excel.application")
ON ERROR &cErrores
IF TYPE("oExcel") # 'O'
oExcel = CREATEOBJECT("Excel.Application")
ENDIF
oExcel.VISIBLE = .t. && VISUALIZO EXCEL
oExcel.Workbooks.ADD && PREPARO UN NUEVO TRABAJO DE EXCEL
SELEct cur_busca
GO TOP
nRows = 0
wi_pagina = 1
wi_columnas = fcount()
SCAN
nRows = nRows + 1
FOR nColumn = 1 TO wi_columnas
wc_campo = field(nColumn)
oExcel.Cells(nRows,nColumn) = &wc_campo
NEXT nColumn
wait window 'Hoja :'+str(wi_pagina)+' Renglon :'+str(nRows) nowait
if nRows>64000
IF CONTADOR <= 3
wc_nombre = "Hoja"+alltrim(str(contador))
oExcel.Sheets(wc_nombre).select
contador = contador + 1
else
contador = contador + 1
oExcel.Worksheets.Add &&after:=ActiveSheet
endif
wi_pagina = contador
nRows=1
endif
ENDSCAN
oExcel.VISIBLE = .T. && VISUALIZO EXCEL
oExcel.activeworkbook.saveas(alltrim(wc_tabla), -4143)
oExcel.quit
Release oExcel
oExcel = Null
messagebox("El archivo ha sido generado ",48,gc_letrero)
endif