大数据导出EXCEL失败

sa123456sc

我用的orcale数据库，能够正常连接并且查询数据，也能正常将数据显示到高级列表框。
现在我需要把查询出来的数据导出为EXCEL。
在数据量少的时候是能正常导出的，当大数据的时候就不好使了。有没有什么好的办法？据说有对象.打开（）和对象.导出（）。但orcale数据库怎么使用呢？
附上高级列表框导出EXCEL的源码

  

子程序名	返回值类型	公开	备 注
超级列表框导出EXCEL
参数名	类 型	参考	可空	数组	备 注
通用对话框	通用对话框
Excel程序	Excel程序
Excel工作簿	Excel工作簿
超级列表框	超级列表框

变量名	类 型	静态	数组	备 注
EXCEL文件名	文本型
x
y
文本	文本型
保存结果	逻辑型

通用对话框.类型 ＝ 1
通用对话框.初始目录 ＝ 取特定目录 ( #系统桌面 )
通用对话框.过滤器 ＝ “EXCEL文件|*.XLS”
通用对话框.默认文件后缀 ＝ “.xls”
如果真 (通用对话框.打开 () ＝ 假)
返回 ()
EXCEL文件名 ＝ 通用对话框.文件名
Excel程序.创建 ()
Excel工作簿.置程序 (Excel程序)
Excel工作簿.表格序号 ＝ 1
Excel工作簿.激活 ()
变量循环首 (1, 超级列表框.取表项数 (), 1, x)
处理事件 ()
变量循环首 (1, 超级列表框.取列数 (), 1, y)
处理事件 ()
文本 ＝ 字符 (96 ＋ y)
Excel工作簿.首单元格 ＝ 文本 ＋ 到文本 (1)
Excel工作簿.尾单元格 ＝ 文本 ＋ 到文本 (1)
Excel工作簿.内容格式 ＝ “@”
Excel工作簿.内容 ＝ 超级列表框.取列标题 (y － 1)
Excel工作簿.首单元格 ＝ 文本 ＋ 到文本 (x ＋ 1)
Excel工作簿.尾单元格 ＝ 文本 ＋ 到文本 (x ＋ 1)
Excel工作簿.内容格式 ＝ “@”
Excel工作簿.内容 ＝ 超级列表框.取标题 (x － 1, y － 1)
变量循环尾 ()
变量循环尾 ()
Excel工作簿.保存 (EXCEL文件名)
Excel工作簿.释放 ()
Excel工作簿.关闭 ()
Excel程序.退出 ()
信息框 (“导出成功”, 0, , )

i支持库列表	支持库注释
eExcel2000	EXCEL2000支持库
iext	扩展界面支持库一
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 eExcel2000<br /> .支持库 iext<br /> .支持库 shell<br /> <br /> .子程序 超级列表框导出EXCEL<br /> .参数 通用对话框, 通用对话框<br /> .参数 Excel程序, Excel程序<br /> .参数 Excel工作簿, Excel工作簿<br /> .参数 超级列表框, 超级列表框<br /> .局部变量 EXCEL文件名, 文本型<br /> .局部变量 x<br /> .局部变量 y<br /> .局部变量 文本, 文本型<br /> .局部变量 保存结果, 逻辑型<br /> <br /> 通用对话框.类型 ＝ 1<br /> 通用对话框.初始目录 ＝ 取特定目录 (#系统桌面)<br /> 通用对话框.过滤器 ＝ “EXCEL文件|*.XLS”<br /> 通用对话框.默认文件后缀 ＝ “.xls”<br /> .如果真 (通用对话框.打开 () ＝ 假)<br />     返回 ()<br /> .如果真结束<br /> EXCEL文件名 ＝ 通用对话框.文件名<br /> Excel程序.创建 ()<br /> Excel工作簿.置程序 (Excel程序)<br /> Excel工作簿.表格序号 ＝ 1<br /> Excel工作簿.激活 ()<br /> .变量循环首 (1, 超级列表框.取表项数 (), 1, x)<br />     处理事件 ()<br />     .变量循环首 (1, 超级列表框.取列数 (), 1, y)<br />         处理事件 ()<br />         文本 ＝ 字符 (96 ＋ y)<br />         Excel工作簿.首单元格 ＝ 文本 ＋ 到文本 (1)<br />         Excel工作簿.尾单元格 ＝ 文本 ＋ 到文本 (1)<br />         Excel工作簿.内容格式 ＝ “@”<br />         Excel工作簿.内容 ＝ 超级列表框.取列标题 (y － 1)<br />         Excel工作簿.首单元格 ＝ 文本 ＋ 到文本 (x ＋ 1)<br />         Excel工作簿.尾单元格 ＝ 文本 ＋ 到文本 (x ＋ 1)<br />         Excel工作簿.内容格式 ＝ “@”<br />         Excel工作簿.内容 ＝ 超级列表框.取标题 (x － 1, y － 1)<br />     .变量循环尾 ()<br /> .变量循环尾 ()<br /> Excel工作簿.保存 (EXCEL文件名)<br /> Excel工作簿.释放 ()<br /> Excel工作簿.关闭 ()<br /> Excel程序.退出 ()<br /> 信息框 (“导出成功”, 0, , )

join90

sa123456sc 发表于 2016-1-18 14:43
的确是这样，6W多条数据要10多分钟。我直接操作数据库导数据1分钟左右。有没有什么效率高点的算法

有SQL的导出EXCEL的语句， 利用数据导出会快很多很多

li738625231

通用对话框有没有打开？

sa123456sc

li738625231 发表于 2016-1-18 12:53
通用对话框有没有打开？

打开了，功能能正常使用，是在数据量很大的时候就会出问题

join90

大数据要很久很久 ，  才会出来对话框，  不是失败了，

li738625231

sa123456sc 发表于 2016-1-18 12:54
打开了，功能能正常使用，是在数据量很大的时候就会出问题

那数据量小就不会吗？

sa123456sc

li738625231 发表于 2016-1-18 12:57
那数据量小就不会吗？

数据量小没问题的

li738625231

那问题可能出在变量循环上了。两个变量循环套在一起，小数据还好，大数据可能会错乱，你试试用计次循环或者判断循环，循环判断也行。

sa123456sc

join90 发表于 2016-1-18 12:56
大数据要很久很久 ，  才会出来对话框，  不是失败了，

的确是这样，6W多条数据要10多分钟。我直接操作数据库导数据1分钟左右。有没有什么效率高点的算法

sa123456sc

join90 发表于 2016-1-18 17:17
有SQL的导出EXCEL的语句， 利用数据导出会快很多很多

有例子吗？没用过这种方式