导出为excel表

string fpath,fname
int f_s
boolean lb_exist
f_s=GetFileSaveName("请选择需保存的文件名", fpath,fname,"txt","文本文件(*.txt),*.txt,Excel(*.xls),*.xls" )
lb_exist = FileExists(fpath)
if f_s<>1 then
return
elseif lb_exist then
choose case MessageBox("Save","OK to over write file: " + fname,Question!, OKCancel!)
case 1
dw_1.saveas(fname, text!, TRUE)
    messagebox("成功覆盖","成功覆盖文件 "+fname)
case else
messagebox("警告","文件未保存成功")
return
    end choose
else
dw_1.saveas(fname, text!, TRUE)
end if