PB SaveAsAscii导出EXCEL是空白的，代码如下： 本机正常导出，有的电脑无法导出

Question

ll_value = GetFileSaveName("选择文件",ls_docname, ls_named, "XLS","Excel文件& (*.xls),*.xls")
IF ll_value = 1 THEN
if tab_1.tabpage_1.dw_1.SaveAsAscii ( ls_docname )=1 then
then
messagebox("注意","导出数据成功!")
else
messagebox("注意","导出数据不成功!")
end if
end if

Answer 1

语法本身没有错误，可能还是运行环境的原因。很多网上下载的office,导入导出的时候就是会出现问题。可以选择使用其他的导出方式，比如用uo或者自定义输出函数！f_saveasexcel(dw_1,ls_err) 。函数代码：
integer li_rtn,ii,li_asc
string ls_name,ls_pathname
boolean lb_exist
long numcols,c,r
int ret
string ls_colname,ls_text,ls_modistr,ls_col
string ls_s,ls_temp[]
long ll_bupper,ll_blower,ll_j

OLEObject lx_excel

if datawin.RowCount() < 1 then
err = "请先检索数据再导出至Excel!"
return false//error
end if
li_rtn = GetFileSaveName("保存文件",ls_pathname,ls_name,"xls","Excel文件(*.xls),*.xls")

if li_rtn = 1 then
lb_exist = FileExists(ls_pathname)
IF lb_exist THEN
li_rtn = MessageBox("保存", ls_pathname+"已经存在,是否覆盖?",Exclamation!, YesNo!)
end if
if li_rtn = 1 then
//当文件存在用户选择覆盖，或是文件本就不存在时。注意变量li_rtn
li_rtn = datawin.SaveAsAscii(ls_pathname)
if li_rtn <> 1 then
err = "导出数据失败!"
return false//error
end if
else
err = "请选择要导出的路径!"
return false//error
end if
else
err = "已取消输出!"
return false
end if

//通过ole直接操作excel
lx_excel = CREATE OLEObject

//连接excel
IF lx_excel.ConnectToNewObject("excel.application") <> 0 THEN
err = "OLE连接Excel错误!"
return false
END IF
//打开导出Excel文件
lx_excel.workbooks.open(ls_pathname)
//设置表格框
lx_excel.Worksheets(1).UsedRange.Borders.LineStyle = 1
//首行粗体
lx_excel.Worksheets(1).rows(1).Font.Bold = True
//首行单元格水平居中
lx_excel.Worksheets(1).rows(1).HorizontalAlignment = -4108
//首行单元格垂直居中
lx_excel.Worksheets(1).rows(1).VerticalAlignment = -4108
//调整Excel行高，列宽
lx_excel.Worksheets(1).Cells.EntireColumn.AutoFit
lx_excel.Worksheets(1).Cells.EntireRow.AutoFit
//所有列设置成文件格式显示 12-07
lx_excel.Worksheets(1).Range("A1:W8992").NumberFormatLocal = "@"
//不进行提示
lx_excel.DisplayAlerts = false
//保存表格
lx_excel.ActiveWorkbook.saveas(ls_pathname,-4143)
//关闭打开的Excel
lx_excel.ActiveWorkbook.close
//退出
lx_excel.quit

err = "导出数据成功!"
return true//success