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

琅的诱惑

支持开源~！感谢分享

梦过无痕

支持开源~！感谢分享

liangfeng988

感谢，非常好用

李泽勇2

jianrong13 发表于 2024-1-8 16:38
导进来的时候想要带表头导入，超级列表框里导出来的时候也要带表头一起导出来，不要 { “物料代码”, “物 ...

需要把导出子程序稍微修改下就可以实现了。

李泽勇2

jianrong13 发表于 2024-1-8 16:38
导进来的时候想要带表头导入，超级列表框里导出来的时候也要带表头一起导出来，不要 { “物料代码”, “物 ...

可以实现的。

jianrong13

导进来的时候想要带表头导入，超级列表框里导出来的时候也要带表头一起导出来，不要 { “物料代码”, “物料名称”, “规格型号” },像这种指定的，能帮我改一下吗

  

子程序名	返回值类型	公开	备 注
_按钮_导入超级列表框_被单击

变量名	类 型	静态	数组	备 注
时间	整数型

时间 ＝ 取启动时间 ()
通用对话框_打开.过滤器 ＝ “xlsx|*.xlsx”
如果真 (通用对话框_打开.打开 ())
如果 (Excel导入_超级列表框 (超级列表框3, 进度条1, 通用对话框_打开.文件名))
状态条1.置文本 (1, “使用” ＋ 到文本 ( (取启动时间 () － 时间) ÷ 1000) ＋ “ 秒 \ 共导入” ＋ 到文本 (进度条1.最大位置) ＋ “ 行”)
信息框 (“导入成功”, 0 ＋ #信息图标, “李勇提示”, )

信息框 (“导入失败”, 0 ＋ #错误图标, “李勇提示”, )

子程序名	返回值类型	公开	备 注
_按钮_超级列表框导出_被单击

变量名	类 型	静态	数组	备 注
时间	整数型

如果真 (超级列表框3.取表项数 () ＝ 0)
信息框 (“超级列表框里好像是空的。”, 0 ＋ #信息图标, “李勇提示”, )
返回 ()
时间 ＝ 取启动时间 ()
通用对话框_保存.过滤器 ＝ “xlsx|*.xlsx”
如果真 (通用对话框_保存.打开 ())
如果 (Excel导出_超级列表框 (超级列表框3, 进度条1, { “物料代码”, “物料名称”, “规格型号” }, 通用对话框_打开.文件名, { 19, 20, 21 }, 取运行目录 () ＋ 通用对话框_打开.文件名))
状态条1.置文本 (1, “使用” ＋ 到文本 ( (取启动时间 () － 时间) ÷ 1000) ＋ “ 秒 \ 共导出” ＋ 到文本 (进度条1.最大位置) ＋ “ 行”)
信息框 (“导入成功”, 0 ＋ #信息图标, “李勇提示”, )
信息框 (“导入失败”, 0 ＋ #错误图标, “李勇提示”, )

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮_导入超级列表框_被单击<br /> .局部变量 时间, 整数型<br /> <br /> 时间 ＝ 取启动时间 ()<br /> <br /> 通用对话框_打开.过滤器 ＝ “xlsx|*.xlsx”<br /> .如果真 (通用对话框_打开.打开 ())<br /> <br />     .如果 (Excel导入_超级列表框 (超级列表框3, 进度条1, 通用对话框_打开.文件名))<br />         状态条1.置文本 (1, “使用” ＋ 到文本 ((取启动时间 () － 时间) ÷ 1000) ＋ “ 秒 \ 共导入” ＋ 到文本 (进度条1.最大位置) ＋ “ 行”)<br />         信息框 (“导入成功”, 0 ＋ #信息图标, “李勇提示”, )<br /> <br />     .否则<br />         信息框 (“导入失败”, 0 ＋ #错误图标, “李勇提示”, )<br /> <br /> <br />     .如果结束<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 _按钮_超级列表框导出_被单击<br /> .局部变量 时间, 整数型<br /> <br /> .如果真 (超级列表框3.取表项数 () ＝ 0)<br />     信息框 (“超级列表框里好像是空的。”, 0 ＋ #信息图标, “李勇提示”, )<br />     返回 ()<br /> .如果真结束<br /> 时间 ＝ 取启动时间 ()<br /> 通用对话框_保存.过滤器 ＝ “xlsx|*.xlsx”<br /> <br /> .如果真 (通用对话框_保存.打开 ())<br />     .如果 (Excel导出_超级列表框 (超级列表框3, 进度条1, { “物料代码”, “物料名称”, “规格型号” }, 通用对话框_打开.文件名, { 19, 20, 21 }, 取运行目录 () ＋ 通用对话框_打开.文件名))<br /> <br />         状态条1.置文本 (1, “使用” ＋ 到文本 ((取启动时间 () － 时间) ÷ 1000) ＋ “ 秒 \ 共导出” ＋ 到文本 (进度条1.最大位置) ＋ “ 行”)<br />         信息框 (“导入成功”, 0 ＋ #信息图标, “李勇提示”, )<br />     .否则<br />         信息框 (“导入失败”, 0 ＋ #错误图标, “李勇提示”, )<br />     .如果结束<br /> <br /> .如果真结束

year1970

感谢分享，正需要

zhangchao123

没急急急急急急急急急急急急

王者祝福

支持开源~！感谢分享

liulshao

etSetColA (c, qq － 1, qq － 1, 列宽 [qq], 0, 0)  ' 调整列宽 .计次循环尾 () f ＝ xlBookSaveA (句柄, 取文本指针 (路径)) xlBookReleaseA (句柄) 返回 (f ＝ 1)