【文件属性】：
文件名称：pb快速导出excel
文件大小：1KB
文件格式：TXT
更新时间：2012-03-08 09:32:08
pb 快速 导出excel
测试过 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
网友评论
- saveas然后修改了一下表头。
- 方式可行，但是代码太简单，还要这么多分
- 还可以，就是要的积分有点多
- 不太好用，这么点代码要这么多积分！！！
- 对于格式处理，如合并单元格，以及数字需要改进，
- 非常实用啊，经典的 。。
- 可以导出，但是导出桌面之后程序的图片全看不见
- 上述程序避免不了因特殊字符乱码或者字段格式不正确的问题吧
- 效果还可以，谢谢
- 下载用了，还有有些缺陷 需要改进
- 对于格式处理，如合并单元格，以及数字需要改进，
- 同感，基础差了，反正没整好
- 基础差了，不会用~
- 不是很好用啊，格式奇怪！
- 速度是很快，但是数字不能为文本格式，比如01234，导出后变成1234.
- 非常实用，很经典
- 用过了 挺快，可惜组合的字段列表显示不了！
- 导出的方法很好，比我之前用的方式好多了。
- 很好很强大，导出速度很快
- 让我又学到一种导出方法，但是我需要的是PB在导出的Excel文件的列名是中文，现已经解决， 还是谢谢楼主的分享。
- 效果还可以的。
- 导出的格式有点奇怪