超级列表框导出到EXCEL文件——2021.03.15修正版

墨影0620

1. 相对于原版的新增/修复内容

复制代码

1、去除没必要的打开文件
2、取消自动创建目录，合并保存目录参数和变量。
3、修复空格子导出为0
4、修复因第一行第一列为空导致无法导出的bug，现在如果所有的表项内容均为空会导出一个只有列（表头）的空表格。
5、新增没有列时候的错误提示。
6、修正返回值无意义的问题
7、新增列不导出
8、新增表项按规则导出\不导出
9、删除多余的变量，精简代码。



下载：https://the-ink-man.lanzous.com/i9V8amz443i
注意事项：
1、调用常量“#修改内容” 可以查看上述相对于原版修改/新增的说明，如果介意请自行修改源码删除重新编译使用！
2、处修复bug，删减多余变量以及新增内容外未对原包内其他内容做出修改！



补充内容 (2021-3-16 22:40):
发现一个因某表项的某列空导致后面的列内容错误的bug，已修复。请等待回帖审核通过！

补充内容 (2021-3-16 22:41):
2021年3月16日 22:41:15更新下载：https://the-ink-man.lanzous.com/iFemgn0cfqb

李泽勇2

  

子程序名	返回值类型	公开	备 注
XLSX初始化_	整数型		调用libxl插件前必须初始化，返回句柄

变量名	类 型	静态	数组	备 注
句柄	整数型

句柄 ＝ xlCreateXMLBookCA ()  ' 初始化
xlBookSetKeyA (句柄, 取文本_指针 (“heiye2018”), 取文本_指针 (“windows-2429200204cde60c6ab16a6ea1q9wec2”))  ' 注册
返回 (句柄)

.版本 2<br /> <br /> .子程序 XLSX初始化_, 整数型, , 调用libxl插件前必须初始化，返回句柄<br /> .局部变量 句柄, 整数型<br /> <br /> 句柄 ＝ xlCreateXMLBookCA ()  ' 初始化<br /> xlBookSetKeyA (句柄, 取文本_指针 (“heiye2018”), 取文本_指针 (“windows-2429200204cde60c6ab16a6ea1q9wec2”))  ' 注册<br /> 返回 (句柄)

  

子程序名	返回值类型	公开	备 注
Excel导出_超级列表框	逻辑型		调用libxl插件
参数名	类 型	参考	可空	数组	备 注
超级列表框_	超级列表框				超级列表框
进度条_	进度条
表头	文本型				{“列1”,“列2”}
工作表名	文本型
列宽	整数型				例如：{19,19}，默认自动调整
路径	文本型				Excel保存路径\理论支持（ 2007、2010、2016）格式文件

变量名	类 型	静态	数组	备 注
句柄	整数型
总数	长整数型
a	整数型
b	整数型
c	整数型
d	整数型
e	文本型
f	整数型
终止列	整数型
qq	整数型

总数 ＝ 超级列表框_.取表项数 ()
句柄 ＝ XLSX初始化_ ()
c ＝ xlBookInsertSheetA (句柄, xlBookSheetCountA (句柄), 取文本_指针 (工作表名), 0)
a ＝ xlBookAddFormatA (句柄, 0)
xlFormatSetBorderA (a, 1)
计次循环首 (取数组成员数 (表头), b)
xlSheetWriteStrA (c, 0, b － 1, 取文本_指针 (表头 [b]), a)
计次循环尾 ()
进度条_.位置 ＝ 0
进度条_.最大位置 ＝ 总数
如果真 (总数 ≥ 32767)  ' 解决超出这个数就无法显示进度的问题。
进度条_.最大位置 ＝ 总数 ÷ 100

终止列 ＝ 取数组成员数 (表头)
如果真 (是否为空 (列宽))
计次循环首 (终止列, )
加入成员 (列宽, -1)
计次循环尾 ()
计次循环首 (总数, d)
计次循环首 (终止列, b)
e ＝ 超级列表框_.取标题 (d － 1, b － 1)
xlSheetWriteStrA (c, d, b － 1, 取文本_指针 (e), a)
计次循环尾 ()
判断 (总数 ≥ 32767)
进度条_.位置 ＝ d ÷ 100
进度条_.位置 ＝ d
系统_处理事件1 ()
计次循环尾 ()
xlSheetAddIgnoredErrorA (c, 0, 0, d, b, 255)  ' 添加表格忽略错误
计次循环首 (取数组成员数 (列宽), qq)
xlSheetSetColA (c, qq － 1, qq － 1, 列宽 [qq], 0, 0)  ' 调整列宽
计次循环尾 ()
f ＝ xlBookSaveA (句柄, 取文本_指针 (路径))
xlBookReleaseA (句柄)
返回 (f ＝ 1)

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 Excel导出_超级列表框, 逻辑型, 公开, 调用libxl插件<br /> .参数 超级列表框_, 超级列表框, 可空, 超级列表框<br /> .参数 进度条_, 进度条<br /> .参数 表头, 文本型, 数组, {“列1”,“列2”}<br /> .参数 工作表名, 文本型<br /> .参数 列宽, 整数型, 可空 数组, 例如：{19,19}，默认自动调整<br /> .参数 路径, 文本型, , Excel保存路径\理论支持（ 2007、2010、2016）格式文件<br /> .局部变量 句柄, 整数型<br /> .局部变量 总数, 长整数型<br /> .局部变量 a, 整数型<br /> .局部变量 b, 整数型<br /> .局部变量 c, 整数型<br /> .局部变量 d, 整数型<br /> .局部变量 e, 文本型<br /> .局部变量 f, 整数型<br /> .局部变量 终止列, 整数型<br /> .局部变量 qq, 整数型<br /> <br /> 总数 ＝ 超级列表框_.取表项数 ()<br /> 句柄 ＝ XLSX初始化_ ()<br /> c ＝ xlBookInsertSheetA (句柄, xlBookSheetCountA (句柄), 取文本_指针 (工作表名), 0)<br /> a ＝ xlBookAddFormatA (句柄, 0)<br /> xlFormatSetBorderA (a, 1)<br /> .计次循环首 (取数组成员数 (表头), b)<br />     xlSheetWriteStrA (c, 0, b － 1, 取文本_指针 (表头 <strong>), a)<br /> .计次循环尾 ()<br /> 进度条_.位置 ＝ 0<br /> 进度条_.最大位置 ＝ 总数<br /> .如果真 (总数 ≥ 32767)  ' 解决超出这个数就无法显示进度的问题。<br />     进度条_.最大位置 ＝ 总数 ÷ 100<br /> .如果真结束<br /> <br /> 终止列 ＝ 取数组成员数 (表头)<br /> .如果真 (是否为空 (列宽))<br />     .计次循环首 (终止列, )<br />         加入成员 (列宽, -1)<br />     .计次循环尾 ()<br /> .如果真结束<br /> .计次循环首 (总数, d)<br />     .计次循环首 (终止列, b)<br />         e ＝ 超级列表框_.取标题 (d － 1, b － 1)<br />         xlSheetWriteStrA (c, d, b － 1, 取文本_指针 (e), a)<br />     .计次循环尾 ()<br />     .判断开始 (总数 ≥ 32767)<br />         进度条_.位置 ＝ d ÷ 100<br />     .默认<br />         进度条_.位置 ＝ d<br />     .判断结束<br />     系统_处理事件1 ()<br /> .计次循环尾 ()<br /> xlSheetAddIgnoredErrorA (c, 0, 0, d, b, 255)  ' 添加表格忽略错误<br /> .计次循环首 (取数组成员数 (列宽), qq)<br />     xlSheetSetColA (c, qq － 1, qq － 1, 列宽 [qq], 0, 0)  ' 调整列宽<br /> .计次循环尾 ()<br /> f ＝ xlBookSaveA (句柄, 取文本_指针 (路径))<br /> xlBookReleaseA (句柄)<br /> 返回 (f ＝ 1)

  

子程序名	返回值类型	公开	备 注
Excel导入_超级列表框	逻辑型		调用libxl插件
参数名	类 型	参考	可空	数组	备 注
超级列表框_	超级列表框				组件
进度条_	进度条				组件
Excel文件	文本型				理论支持（ 2007、2010、2016）格式文件
是否包含表头	逻辑型				默认不包含表头

变量名	类 型	静态	数组	备 注
句柄	整数型
表_句柄	整数型
列数	整数型
行数	整数型
读取表格	整数型
行	整数型
列	整数型
临时内容	文本型
行内容	文本型
行__	整数型

句柄 ＝ XLSX初始化_ ()
如果真 (取反 (xlBookLoadA (句柄, 取文本_指针 (Excel文件)) ＝ 1))  ' 打开工作簿
xlBookReleaseA (句柄)  ' 释放
返回 (假)
表_句柄 ＝ xlBookGetSheetA (句柄, 读取表格)  ' 取表格内容
行数 ＝ xlSheetLastRowA (表_句柄)  ' 取得行数
列数 ＝ xlSheetLastColA (表_句柄)  ' 取得列数
超级列表框_.全部删除 ()
如果真 (是否为空 (是否包含表头))
是否包含表头 ＝ 假
如果真 (是否包含表头 ＝ 假)
行数 ＝ 行数 － 1

进度条_.位置 ＝ 0
进度条_.最大位置 ＝ 行数
如果真 (行数 － 1 ≥ 32767)  ' 解决超出这个数就无法显示进度的问题。
进度条_.最大位置 ＝ 行数 ÷ 100

计次循环首 (行数, 行)  ' 读工作表数据
列 ＝ 0
判断 (行数 ≥ 32767)
进度条_.位置 ＝ 行 ÷ 100
进度条_.位置 ＝ 行
超级列表框_.插入表项 (, , , , , )
计次循环首 (列数, 列)
判断 (是否包含表头 ＝ 假)
行__ ＝ 行
行__ ＝ 行 － 1
临时内容 ＝ 指针到文本 (xlSheetReadStrA (表_句柄, 行__, 列 － 1, 0))  ' 读单元格文本
超级列表框_.置标题 (行 － 1, 列 － 1, 临时内容)
计次循环尾 ()
系统_处理事件1 ()
计次循环尾 ()
xlBookReleaseA (句柄)  ' 释放
返回 (真)

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 Excel导入_超级列表框, 逻辑型, 公开, 调用libxl插件<br /> .参数 超级列表框_, 超级列表框, , 组件<br /> .参数 进度条_, 进度条, , 组件<br /> .参数 Excel文件, 文本型, , 理论支持（ 2007、2010、2016）格式文件<br /> .参数 是否包含表头, 逻辑型, 可空, 默认不包含表头<br /> .局部变量 句柄, 整数型<br /> .局部变量 表_句柄, 整数型<br /> .局部变量 列数, 整数型<br /> .局部变量 行数, 整数型<br /> .局部变量 读取表格, 整数型<br /> .局部变量 行, 整数型<br /> .局部变量 列, 整数型<br /> .局部变量 临时内容, 文本型<br /> .局部变量 行内容, 文本型<br /> .局部变量 行__, 整数型<br /> <br /> 句柄 ＝ XLSX初始化_ ()<br /> .如果真 (取反 (xlBookLoadA (句柄, 取文本_指针 (Excel文件)) ＝ 1))  ' 打开工作簿<br />     xlBookReleaseA (句柄)  ' 释放<br />     返回 (假)<br /> .如果真结束<br /> 表_句柄 ＝ xlBookGetSheetA (句柄, 读取表格)  ' 取表格内容<br /> 行数 ＝ xlSheetLastRowA (表_句柄)  ' 取得行数<br /> 列数 ＝ xlSheetLastColA (表_句柄)  ' 取得列数<br /> 超级列表框_.全部删除 ()<br /> .如果真 (是否为空 (是否包含表头))<br />     是否包含表头 ＝ 假<br /> .如果真结束<br /> .如果真 (是否包含表头 ＝ 假)<br />     行数 ＝ 行数 － 1<br /> .如果真结束<br /> <br /> 进度条_.位置 ＝ 0<br /> 进度条_.最大位置 ＝ 行数<br /> .如果真 (行数 － 1 ≥ 32767)  ' 解决超出这个数就无法显示进度的问题。<br />     进度条_.最大位置 ＝ 行数 ÷ 100<br /> .如果真结束<br /> <br /> .计次循环首 (行数, 行)  ' 读工作表数据<br />     列 ＝ 0<br />     .判断开始 (行数 ≥ 32767)<br />         进度条_.位置 ＝ 行 ÷ 100<br />     .默认<br />         进度条_.位置 ＝ 行<br />     .判断结束<br />     超级列表框_.插入表项 (, , , , , )<br />     .计次循环首 (列数, 列)<br />         .判断开始 (是否包含表头 ＝ 假)<br />             行__ ＝ 行<br />         .默认<br />             行__ ＝ 行 － 1<br />         .判断结束<br />         临时内容 ＝ 指针到文本 (xlSheetReadStrA (表_句柄, 行__, 列 － 1, 0))  ' 读单元格文本<br />         超级列表框_.置标题 (行 － 1, 列 － 1, 临时内容)<br />     .计次循环尾 ()<br />     系统_处理事件1 ()<br /> .计次循环尾 ()<br /> xlBookReleaseA (句柄)  ' 释放<br /> 返回 (真)

兄弟，看我的这个怎么样？

year1970

感谢分析，学习了

txjxjt

李泽勇2 发表于 2021-3-18 13:46
[e=0].版本 2

.子程序 XLSX初始化_, 整数型, , 调用libxl插件前必须初始化，返回句柄

不可以设置导出的任意列

忧伤小猫咪

感谢分享

liudongdong001

李泽勇2 发表于 2021-3-18 13:46
[e=0].版本 2

.子程序 XLSX初始化_, 整数型, , 调用libxl插件前必须初始化，返回句柄

代码不全啊

champion

shi6718298

链接挂了

曜辉

大佬连接好像挂了~

qinqing

大佬，怎么可以把用易语言写的操作Excel小工具，加载到Excel表头哪里呀，，就像菜单栏那个一样，，我转成dll用Excel的com加载项，识别不了，

李泽勇2

下载链接失效了。