string str_savename,named
int excelok,li_net
oleobject excelserver
excelserver=create oleobject
excelok=excelserver.connecttonewobject("excel.application")
//检查返回值,以确保已成功地连接到了Excel
if excelok <> 0 then
messagebox("信息提示","连接EXCEL失败,请检查计算机中是否安装了EXCEL!")
return
end if
if GetFilesaveName("选择文件", str_savename,named,"xls","Excel文件(*.xls),*.xls") = 1 then
dw_1.saveas(str_savename,excel!,true)<span style="white-space:pre"> </span>//dw_1为数据窗口
messagebox('提示信息','导出成功!')
end if
powerbuilder导出数据到Excel表
最新推荐文章于 2021-04-13 13:37:41 发布