libxl插件快速从[数据库][超级列表框][高级表格]导入导出Excel

wyd134

提示：

  

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

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

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

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

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

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

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

可增加一个xls对应的初始化命令（xlCreateBookCA ），然后在调用初始化命令前，先对文件扩展名进行判断：xls用前者，xlsx用后者

李泽勇2

fengd 发表于 2020-9-8 11:19
请教下大佬，高级表导出 图片用什么方式？能给个思路教程吗 ？

高级表格。取数据（） 这是通用类型。

fengd

请教下大佬，高级表导出 图片用什么方式？能给个思路教程吗 ？

小毛皮

2020年8月27日16:49:26

Saber233

李泽勇2 发表于 2020-8-24 17:29
可以实现，我给的模块无法实现，你需要功能更全的模块。
你参考下。

谢谢大佬！

李泽勇2

Saber233 发表于 2020-8-24 16:04
大佬麻烦问下导出到Excel的时候这种组合在一起单元格的有办法实现吗

可以实现，我给的模块无法实现，你需要功能更全的模块。
你参考下。

https://bbs.125.la/forum.php?mod ... amp;highlight=libxl

Saber233

李泽勇2 发表于 2020-8-18 13:28
感谢打赏

大佬麻烦问下导出到Excel的时候这种组合在一起单元格的有办法实现吗

李泽勇2

Saber233 发表于 2020-8-18 13:09
感谢大佬。。好银啊！

感谢打赏

Saber233

李泽勇2 发表于 2020-8-17 14:55
[e=0].版本 2
.支持库 iext

感谢大佬。。好银啊！

李泽勇2

Saber233 发表于 2020-8-17 12:54
大大用了几天后发现一个问题，Excel导入的时候不知道为什么第一行没有了。。
附上源码和excel

  

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

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

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

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

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

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 Excel导入_超级列表框, 逻辑型, 公开<br /> .参数 超级列表框_, 超级列表框, , 组件<br /> .参数 进度条_, 进度条, , 组件<br /> .参数 Excel文件, 文本型, , 理论支持（ 2007、2010、2016）格式文件<br /> .参数 是否包含表头, 逻辑型, 可空, 默认不包含表头<br /> .局部变量 句柄, 整数型<br /> .局部变量 表_句柄, 整数型<br /> .局部变量 列数, 整数型<br /> .局部变量 行数, 整数型<br /> .局部变量 读取表格, 整数型<br /> .局部变量 行, 整数型<br /> .局部变量 列, 整数型<br /> .局部变量 临时内容, 文本型<br /> .局部变量 行内容, 文本型<br /> .局部变量 行__, 整数型<br /> <br /> 句柄 ＝ 初始化_ ()<br /> .如果真 (取反 (xlBookLoadA (句柄, 取文本指针 (Excel文件)) ＝ 1))  ' 打开工作簿<br />     xlBookReleaseA (句柄)  ' 释放<br />     返回 (假)<br /> .如果真结束<br /> 表_句柄 ＝ xlBookGetSheetA (句柄, 读取表格)  ' 取表格内容<br /> 行数 ＝ xlSheetLastRowA (表_句柄)  ' 取得行数<br /> 列数 ＝ xlSheetLastColA (表_句柄)  ' 取得列数<br /> 超级列表框_.全部删除 ()<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 /> .计次循环尾 ()<br /> xlBookReleaseA (句柄)  ' 释放<br /> 返回 (真)