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

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)

tywen

支持开源~！感谢分享

xuweicheng

6666666666666666666666666666666666666666666666666666666

HackerAmor

支持开源~！感谢分享

gyt1978

导出后所有数据都是文本型的，数字部分再操作的话（如自动求和等）还需要再改表格格式，有办法导出常规格式吗？

Masonic

        支持开源~！感谢分享