关于PB12导出XLSX

arfa12 2013-02-19 02:48:54

本人刚开始接触pb12，发现pb12程序编译以后，里面saveas函数，生成xlsx,在装有pb12程序的电脑上是可以正常导出的saveas(dw,'c:\1.xlsx',xlsx!,true),但是在没有安装pb的电脑上却无法声称xlsx文件，所有pb12相关的dll都已经复制过去了，求高手解答

...全文

503 3 打赏收藏转发到动态举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

sjlion 2013-02-20

打赏
举报

回复

.net 3.5库，看下

WorldMobile 2013-02-20

打赏
举报

回复

还缺少动态库，把pb所有的dll都复制到运行目录下或者用进程管理器，在安装pb的计算机上，查看一下导出xlsx时加载的dll

pb数据窗口导出excel，替代pb自带导出功能，所见即所得。

好用的dw2xls，我在powerbuilder9,11,12等版本中使用过。

测试过 7W多条100列只要不到5S excelserver.Workbooks.Open(ls_path)//打开 //ExcelServer.ActiveSheet.rows(2).insert //显示数据库列名时启用 ll_colnum = long(dw_1.Describe("DataWindow.Column.Count")) FOR i = 1 TO Ll_ColNum // 得到写入列标题头的名字 ls_colName = dw_1.Describe('#' + STRING(i) + ".name") + "_t" ls_value = dw_1.Describe(ls_colName + ".text") excelserver.ActiveSheet.cells(1,i).value = ls_value //ExcelServer.ActiveSheet.cells(2,i).value = ls_value//显示数据库列名时启用 excelserver.Application.Visible = TRUE NEXT

可以支持分组，多标头，合计的数据窗口。调用的如下： string ls_pathName,ls_FileName //路径+文件名，文件名 long ll_Net n_cst_dw2excel n_excel //用户对象 ll_Net = GetFileSaveName("请选择文件",ls_pathName,ls_FileName,"xls","Excel文(*.xls),*.xls") if ll_Net = 1 then n_Excel.OF_SetTipsWindow("w_tipsabc","正在生成Excel文件,请稍候.....") n_excel.OF_dw2Excel(dw_Excel,ls_pathName) end if

PBdatawindow导出excel函数源码非常方便

1,108

社区成员

66,453

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章