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

李泽勇2

lpc 发表于 2020-10-8 11:08
高级表格不能单独导出某列！
比如我要导出第二列，就算设置了表头还是导出第一列！
希望修正！ ...

  

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

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

总数 ＝ 高级表格_.行数 － 1
句柄 ＝ 初始化_ ()
c ＝ xlBookInsertSheetA (句柄, xlBookSheetCountA (句柄), 取文本指针 (工作表名), 0)
a ＝ xlBookAddFormatA (句柄, 0)
xlFormatSetBorderA (a, 1)
计次循环首 (取数组成员数 (表头), b)
xlSheetWriteStrA (c, 0, b － 1, 取文本指针 (表头 [b]), a)
计次循环尾 ()
进度条_.位置 ＝ 0
进度条_.最大位置 ＝ 总数
终止列 ＝ 取数组成员数 (表头)
如果真 (是否为空 (列宽))
计次循环首 (终止列, )
加入成员 (列宽, -1)
计次循环尾 ()
计次循环首 (总数, d)
计次循环首 (终止列, b)
e ＝ 高级表格_.取数据 (d, b － 1)
xlSheetWriteStrA (c, d, b － 1, 取文本指针 (e), a)
计次循环尾 ()
进度条_.位置 ＝ d
计次循环尾 ()
xlSheetAddIgnoredErrorA (c, 0, 0, d, b, 255)  ' 添加表格忽略错误
计次循环首 (取数组成员数 (列宽), qq)
xlSheetSetColA (c, qq － 1, qq － 1, 列宽 [qq], 0, 0)  ' 调整列宽
计次循环尾 ()
f ＝ xlBookSaveA (句柄, 取文本指针 (路径))
xlBookReleaseA (句柄)
返回 (f ＝ 1)

i支持库列表	支持库注释
eGrid	高级表格支持库

.版本 2<br /> .支持库 eGrid<br /> <br /> .子程序 Excel导出_高级表格, 逻辑型, 公开<br /> .参数 高级表格_, 高级表格, 可空, 高级表格<br /> .参数 进度条_, 进度条<br /> .参数 表头, 文本型, 数组, {“列1”,“列2”}<br /> .参数 工作表名, 文本型<br /> .参数 列宽, 整数型, 可空 数组, {19,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 /> 总数 ＝ 高级表格_.行数 － 1<br /> 句柄 ＝ 初始化_ ()<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 /> 终止列 ＝ 取数组成员数 (表头)<br /> .如果真 (是否为空 (列宽))<br />     .计次循环首 (终止列, )<br />         加入成员 (列宽, -1)<br />     .计次循环尾 ()<br /> .如果真结束<br /> .计次循环首 (总数, d)<br />     .计次循环首 (终止列, b)<br />         e ＝ 高级表格_.取数据 (d, b － 1)<br />         xlSheetWriteStrA (c, d, b － 1, 取文本指针 (e), a)<br />     .计次循环尾 ()<br />     进度条_.位置 ＝ d<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)

李泽勇2

lpc 发表于 2020-10-8 11:08
高级表格不能单独导出某列！
比如我要导出第二列，就算设置了表头还是导出第一列！
希望修正！ ...

感谢反馈，有空修复。

lpc

高级表格不能单独导出某列！
比如我要导出第二列，就算设置了表头还是导出第一列！
希望修正！

me19870417

下载学习学习

怡君大哥

        支持开源~！感谢分享

aa7790023

很好，易语言就是要靠你们的力量了！！

辽阳小哲

感谢楼主提供，学习了。

李泽勇2

wyd134 发表于 2020-9-18 13:25
提示：[e=0].版本 2

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

感谢分享。

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
请教下大佬，高级表导出 图片用什么方式？能给个思路教程吗 ？

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