超级列表框最多能导出多少列数据到excl文件

289099734

我现在导出26列数据、哪里有错吗？

补充内容 (2017-7-11 22:51):
目前只能取到a-z的数据、后面的都是乱码了、所以就无法取出、代码在下面、求大神帮我看一下

逸辰Arne

布吉岛你的代码出了啥问题。。我直接测试写出50列没问题。。

所以。。顺便送你一段我整合的程序集吧。。。

289099734

.版本 2
.支持库 eExcel2000
.支持库 iext
.支持库 spec

.子程序 子程序_导出
.参数 通用对话框, 通用对话框
.参数 Excel程序, Excel程序
.参数 Excel工作簿, Excel工作簿
.参数 超级列表框, 超级列表框
.局部变量 EXCEL文件名, 文本型
.局部变量 x, 整数型
.局部变量 y, 整数型
.局部变量 文本, 文本型
.局部变量 保存结果, 逻辑型

EXCEL文件名 ＝ “报表”
Excel程序.创建 ()
Excel工作簿.置程序 (Excel程序)

Excel工作簿.表格序号 ＝ 1
Excel工作簿.激活 ()
.变量循环首 (1, 超级列表框.取表项数 (), 1, x)
    处理事件 ()
    .变量循环首 (1, 超级列表框.取列数 (), 1, y)
        处理事件 ()
        文本 ＝ 字符 (96 ＋ y)  ' 96
        调试输出 (文本)
        Excel工作簿.首单元格 ＝ 文本 ＋ 到文本 (1)
        Excel工作簿.尾单元格 ＝ 文本 ＋ 到文本 (1)

        Excel工作簿.内容格式 ＝ “@”
        Excel工作簿.内容 ＝ 超级列表框.取列标题 (y － 1)
        ' 调试输出 (Excel工作簿.内容)
        Excel工作簿.首单元格 ＝ 文本 ＋ 到文本 (x ＋ 1)
        Excel工作簿.尾单元格 ＝ 文本 ＋ 到文本 (x ＋ 1)
        Excel工作簿.内容格式 ＝ “@”
        Excel工作簿.内容 ＝ 超级列表框.取标题 (x － 1, y － 1)
        调试输出 (Excel工作簿.内容)
    .变量循环尾 ()
.变量循环尾 ()
Excel工作簿.保存 (取运行目录 () ＋ “/” ＋ 到文本 (取现行时间 ()) ＋ “.xls”)
Excel程序1.显示 ＝ 真
' Excel工作簿.打开 (取运行目录 () ＋ “/工作表.xls”)

Excel工作簿.关闭 ()
Excel工作簿.释放 ()
Excel程序.退出 ()
Excel程序.释放 ()

289099734

逸辰Arne 发表于 2017-7-11 23:35
布吉岛你的代码出了啥问题。。我直接测试写出50列没问题。。

所以。。顺便送你一段我整合的程序集吧。。 ...

适用wps嘛？

逸辰Arne

- -啊？？？？ 没试过WPS专用后缀的那种。。

我只知道XLSX和XLS后缀的能用。。。

289099734

逸辰Arne 发表于 2017-7-11 23:55
- -啊？？？？ 没试过WPS专用后缀的那种。。

我只知道XLSX和XLS后缀的能用。。。

你那个程序集的数组越界了！Excel_取列  

289099734

逸辰Arne 发表于 2017-7-11 23:55
- -啊？？？？ 没试过WPS专用后缀的那种。。

我只知道XLSX和XLS后缀的能用。。。

我已经把我那个搞好了、你的excel_取列给了我灵感、是因为excl的列名 乱码导致、重新用数组定义列名就可以了、