现有 “股票信息统计表模板.xls”文件和表文件“全部股票.dbf”,我想利用模板文件自动生成多页的“股票信息统计表.xls”，不知代码如何写，请高手赐教，万分感谢！！！

*在控件中输入或选择文件名
_fnm=Thisform.text1.Value
If Empty(_fnm)
    =Messagebox('请请选择模板文件！',48,'')
    Return
Endif
If !File(_fnm)
    =Messagebox('不存在文件： '+_fnm,48,'')
    Return
Endif
_LR=Chr(13)&&+Chr(10)
On Error xlsrs=Createobject('Excel.application') &&如果下一语句执行错误（即excel没有打开），执行本语句&&测试是否安装了Excel
xlsrs=Getobject(,'Excel.application') &&给打开的Excel一个别名。
xlsrs.Visible=.T.  &&后台运行似乎快点。
xlsrs.Workbooks.Open(_fnm)
IF !USED('全部股票')
    USE  全部股票 IN 0
endif
SELECT 全部股票
FOR i=1 TO RECCOUNT()
    GO i
    xlsrs.cells(i+3,1).Value=ALLTRIM(代码)
    xlsrs.cells(i+3,2).Value=ALLTRIM(名称)
    xlsrs.cells(i+3,).Value=最新价_元
**    类似写入其它
**    …………
ENDFOR