怎么将查询出来的数据导出到EXCEL表

如何将查询出来的数据导出到EXCEL表？
我用下面的代码把表grzh里面的bdyy等于1的人全部查询出来了，我现在想把查询出来的结果导出到EXCEL里面，请问应该怎么弄
CLOSE DATA
use grzh
set filt to bdyy=1
go top
if .not. eof()
   brow fiel  dwmc:h='单位名称',sbdm:h='社保代码',xm:h='姓名',jf_n:h="起始缴费_年",jf_y:h="起始缴费_月",jfy_b:h="本年缴费月",jfjs_b:h="本年缴费基数",bdyy:h='变动标识',BZ:H="变动备注"noedit title "查询新分学生"
   else
   RE=MESSAGEBOX("无此类人员！",0+48+256,"信息窗口")
endif
close data
return

------解决方案--------------------
SELECT grzh
lcDelimFile = PUTFILE('', '导出的Excel表名', 'XLS')
IF EMPTY(lcDelimFile)
   RETURN
ENDIF
COPY TO (lcDelimFile) TYPE XL5

------解决方案--------------------
  thisform.grid1.recordsource='表名'
  thisform.grid1.refresh