*在控件中输入或选择文件名
_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
