pb2excel的另一种.txt

PB常用技巧 PB常用技巧 PB常用技巧

PB2EXCEL的另一种

当数据窗口中含有计算列时，要导出EXCEL总不能正确，虽然网上有很多例子，但是我试了很多结果都不是很理想。我记得有位大侠（不好意思时间过得太久，没有记下他的名字，不过我一直很感谢他）写过一种方法，基本可以解决这个问题，现在加以整理，内容如下，希望能帮大家解决一些问题，其实方法很简单

int   li_value
string  ls_path,ls_fname
if dw_1.rowcount()>0 then

li_value = GetFilesaveName("请选择导出文件", &
  + ls_path, ls_fname, "XLS", &
  + "Excel文件 (*.xls), *.xls") 
IF li_value <> 1 THEN
return 
end if

setpointer(hourglass!)

if dw_1.SaveAs(ls_path,  HTMLTable!,  True)  =  -1  then 
MessageBox("提示信息", "导出数据出错. 不能写入文件 !", Exclamation!)
else

messagebox('提示信息','数据导出成功 !', Exclamation!)
end if
this.enabled=false
else
messagebox("提示","没有可以保存的数据")
end if