PB的datawindow导出到excel文件（使用saveasascii）

**********************************************************/
/*函数名称：uf_dwsaveas_excel
功能：将数据窗口数据导出EXCEL文件，并将EXCEL文件默认英文标题替换成中文。
参数：datawindow datawin，为用户要导出数据窗口的数据窗口控件名
返回值：integer 1，success；-1，error
流程描述：先用saveasAscii()倒出为excel文件，再替换表头为中文名
 
        原因：为提高程序的可读性作了少量的修改(如：增加注释、改变排版风格等)*/
/**********************************************************/

/***************以下程序将导出为EXCEL文档******************/
integer li_rtn,ii,li_asc
string ls_name,ls_pathname
boolean lb_exist
if datawin.RowCount()<1 then
MessageBox("提示信息","请先检索数据再导出至Excel!")
return -1//error
end if
li_rtn=GetFileSaveName("保存文件",ls_pathname,ls_name,"xls","Excel文件(*.xls),*.xls")

if li_rtn=1 then
lb_exist = FileExists(ls_pathname)