字符串ls_name，ls_pathname
布爾lb_exist
如果datawin。RowCount()& lt；那麽1
MessageBox("提示信息"，"導出Excel前請先檢索數據！")
返回-1//錯誤
如果…就會結束
Li_rtn=GetFileSaveName("保存文件"，ls _ pathname，ls _ name，" xls，" Excel文件(*。xls)，*。xls”)。
如果li_rtn=1，則
lb _ exist = file exists(ls _ pathname)//查看文件是否存在。
如果lb_exist，那麽
Li_rtn = MessageBox ("Save "，ls_pathname+"已經存在，是否覆蓋？"，感嘆！，YesNo！)
如果…就會結束
如果li_rtn=1，則
//當文件存在而用戶選擇覆蓋時，或者文件不存在時，註意變量li_rtn。
li_rtn=datawin。saveasasascii(ls _路徑名)
如果li_rtn=1，則
MessageBox("提示信息"，"數據導出成功！")
其他
MessageBox("錯誤消息"，"導出數據失敗！")
返回-1//錯誤
如果…就會結束
其他
返回-1//錯誤
如果…就會結束
其他
return -1
如果…就會結束