精易论坛

标题: 【常用】易语言免安装excel超级列表框导出表格与导入表格 [打印本页]

---

作者: callme大大    时间: 2020-10-8 12:36
标题: 【常用】易语言免安装excel超级列表框导出表格与导入表格

  

子程序名	返回值类型	公开	备 注
超级列表框_导入表格	逻辑型
参数名	类 型	参考	可空	数组	备 注
超级列表框	超级列表框				超级列表框优先
路径	文本型				Excel保存路径\理论支持（ 2007、2010、2016）格式文件
进度条	进度条

变量名	类 型	静态	数组	备 注
book	类_工作簿
表格	类_工作表
起始行	整数型
起始列	整数型
终止行	整数型
终止列	整数型
i	整数型
列宽	整数型
s	整数型
n	整数型

如果真 (文件是否存在 (路径) ＝ 假)
返回 (假)
超级列表框.全部删除 ()
计次循环首 (超级列表框.取列数 (), i)
i ＝ i － 1
超级列表框.删除列 (i)
计次循环尾 ()
EXCEL_初始化 (book, 路径)
表格 ＝ book.选择表 (0)
起始行 ＝ 表格.取使用起始行 ()
起始列 ＝ 表格.取使用起始列 ()
终止列 ＝ 表格.取使用终止列 ()
终止行 ＝ 表格.取使用终止行 ()
进度条.最小位置 ＝ 0
进度条.最大位置 ＝ 终止行 － 起始行 － 1
列宽 ＝ (超级列表框.宽度 － 80) ÷ (终止列 － 起始列)
计次循环首 (终止列 － 起始列 ＋ 1, i)
i ＝ i － 1
如果 (i ＝ 0)
超级列表框.插入列 (i, “ID”, 50, 1, , )  ' 增加一个ID列
超级列表框.插入列 (i, 表格.取单元格文本 (0, i － 1), 列宽, 1, , )
调试输出 (i)
处理事件 ()
计次循环尾 ()
计次循环首 (终止行 － 起始行 － 1, i)
进度条.位置 ＝ i
s ＝ 超级列表框.插入表项 (, , , , , )
计次循环首 (终止列 － 起始列 ＋ 1, n)
n ＝ n － 1
如果 (n ＝ 0)
超级列表框.置标题 (s, n, 到文本 (i))
超级列表框.置标题 (s, n, 表格.取单元格文本 (i, n － 1))
处理事件 ()
计次循环尾 ()
计次循环尾 ()
返回 (真)

子程序名	返回值类型	公开	备 注
超级列表框_导出表格
参数名	类 型	参考	可空	数组	备 注
保存文件名	文本型				如果没有模板文件，那么必须是xlsx的文件后缀
超级列表框	超级列表框
模板文件	文本型				一个没有数据的模板文件

变量名	类 型	静态	数组	备 注
工作簿	类_工作簿
excel	类_工作表
格式	类_格式
i	整数型
n	整数型
内容	文本型
a	整数型
b	整数型
c	整数型

如果 (模板文件 ≠ “”)
复制文件 (模板文件, 保存文件名)
写到文件 (保存文件名, #空表格xlsx )
EXCEL_初始化 (工作簿, 保存文件名)
excel ＝ 工作簿.选择表 (0)
计次循环首 (超级列表框.取表项数 () ＋ 1, i)
i ＝ i － 1
计次循环首 (超级列表框.取列数 (), n)
n ＝ n － 1
如果 (i ＝ 0)
内容 ＝ 超级列表框.取列标题 (n)
内容 ＝ 超级列表框.取标题 (i － 1, n)
格式 ＝ excel.取单元格格式 (i, n)  ' 忽略一行.I从1开始
excel.置单元格文本 (i, n, 内容, 格式)
计次循环尾 ()
计次循环尾 ()
工作簿.保存 (保存文件名)
工作簿.释放 ()

子程序名	返回值类型	公开	备 注
EXCEL_初始化	逻辑型		如果使用xlsx格式，文档不存在将自动创建一个空的
参数名	类 型	参考	可空	数组	备 注
book	类_工作簿				类_工作簿
excel路径	文本型

如果 (文件_取扩展名 (excel路径) ＝ “.xlsx”)
如果真 (文件是否存在 (excel路径) ＝ 假)
写到文件 (excel路径, #空表格xlsx )
book.创建XLSX ()
如果 (文件_取扩展名 (excel路径) ＝ “.xls”)
book.创建XLSX ()
返回 (假)

book.注册 (“123”, Getkey (“123”))
返回 (book.打开 (excel路径))

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 超级列表框_导入表格, 逻辑型, 公开<br /> .参数 超级列表框, 超级列表框, , 超级列表框优先<br /> .参数 路径, 文本型, , Excel保存路径\理论支持（ 2007、2010、2016）格式文件<br /> .参数 进度条, 进度条, 可空<br /> .局部变量 book, 类_工作簿<br /> .局部变量 表格, 类_工作表<br /> .局部变量 起始行, 整数型<br /> .局部变量 起始列, 整数型<br /> .局部变量 终止行, 整数型<br /> .局部变量 终止列, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 列宽, 整数型<br /> .局部变量 s, 整数型<br /> .局部变量 n, 整数型<br /> <br /> .如果真 (文件是否存在 (路径) ＝ 假)<br />     返回 (假)<br /> .如果真结束<br /> 超级列表框.全部删除 ()<br /> .计次循环首 (超级列表框.取列数 (), i)<br />     i ＝ i － 1<br />     超级列表框.删除列 (i)<br /> .计次循环尾 ()<br /> EXCEL_初始化 (book, 路径)<br /> 表格 ＝ book.选择表 (0)<br /> 起始行 ＝ 表格.取使用起始行 ()<br /> 起始列 ＝ 表格.取使用起始列 ()<br /> 终止列 ＝ 表格.取使用终止列 ()<br /> 终止行 ＝ 表格.取使用终止行 ()<br /> <br /> 进度条.最小位置 ＝ 0<br /> 进度条.最大位置 ＝ 终止行 － 起始行 － 1<br /> 列宽 ＝ (超级列表框.宽度 － 80) ÷ (终止列 － 起始列)<br /> .计次循环首 (终止列 － 起始列 ＋ 1, i)<br />     i ＝ i － 1<br />     .如果 (i ＝ 0)<br />         超级列表框.插入列 (i, “ID”, 50, 1, , )  ' 增加一个ID列<br />     .否则<br />         超级列表框.插入列 (i, 表格.取单元格文本 (0, i － 1), 列宽, 1, , )<br />     .如果结束<br />     调试输出 (i)<br />     处理事件 ()<br /> .计次循环尾 ()<br /> <br /> .计次循环首 (终止行 － 起始行 － 1, i)<br />     进度条.位置 ＝ i<br />     s ＝ 超级列表框.插入表项 (, , , , , )<br />     .计次循环首 (终止列 － 起始列 ＋ 1, n)<br />         n ＝ n － 1<br />         .如果 (n ＝ 0)<br />             超级列表框.置标题 (s, n, 到文本 (i))<br />         .否则<br />             超级列表框.置标题 (s, n, 表格.取单元格文本 (i, n － 1))<br />         .如果结束<br />         处理事件 ()<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 返回 (真)<br /> <br /> <br /> .子程序 超级列表框_导出表格, , 公开<br /> .参数 保存文件名, 文本型, , 如果没有模板文件，那么必须是xlsx的文件后缀<br /> .参数 超级列表框, 超级列表框<br /> .参数 模板文件, 文本型, 可空, 一个没有数据的模板文件<br /> .局部变量 工作簿, 类_工作簿<br /> .局部变量 excel, 类_工作表<br /> .局部变量 格式, 类_格式<br /> .局部变量 i, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 内容, 文本型<br /> .局部变量 a, 整数型<br /> .局部变量 b, 整数型<br /> .局部变量 c, 整数型<br /> <br /> .如果 (模板文件 ≠ “”)<br />     复制文件 (模板文件, 保存文件名)<br /> .否则<br />     写到文件 (保存文件名, #空表格xlsx)<br /> .如果结束<br /> EXCEL_初始化 (工作簿, 保存文件名)<br /> excel ＝ 工作簿.选择表 (0)<br /> .计次循环首 (超级列表框.取表项数 () ＋ 1, i)<br />     i ＝ i － 1<br />     .计次循环首 (超级列表框.取列数 (), n)<br />         n ＝ n － 1<br />         .如果 (i ＝ 0)<br />             内容 ＝ 超级列表框.取列标题 (n)<br />         .否则<br />             内容 ＝ 超级列表框.取标题 (i － 1, n)<br />         .如果结束<br />         格式 ＝ excel.取单元格格式 (i, n)  ' 忽略一行.I从1开始<br />         excel.置单元格文本 (i, n, 内容, 格式)<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 工作簿.保存 (保存文件名)<br /> 工作簿.释放 ()<br /> .版本 2<br /> <br /> .子程序 EXCEL_初始化, 逻辑型, 公开, 如果使用xlsx格式，文档不存在将自动创建一个空的  <br /> .参数 book, 类_工作簿, , 类_工作簿<br /> .参数 excel路径, 文本型<br /> <br /> .如果 (文件_取扩展名 (excel路径) ＝ “.xlsx”)<br />     .如果真 (文件是否存在 (excel路径) ＝ 假)<br />         写到文件 (excel路径, #空表格xlsx)<br />     .如果真结束<br />     book.创建XLSX ()<br /> .否则<br />     .如果 (文件_取扩展名 (excel路径) ＝ “.xls”)<br />         book.创建XLSX ()<br />     .否则<br />         返回 (假)<br />     .如果结束<br /> <br /> .如果结束<br /> book.注册 (“123”, Getkey (“123”))<br /> 返回 (book.打开 (excel路径))

模块与dll.zip (2.59 MB, 下载次数: 878)

2020-10-8 12:35 上传

点击文件名下载附件
下载积分: 精币 -2 枚

1602131452.jpg (25.77 KB, 下载次数: 13)

下载附件

2020-10-8 12:31 上传

---

作者: 易生情    时间: 2020-10-8 16:37
提示: 作者被禁止或删除 内容自动屏蔽

---

作者: wang2596308    时间: 2020-10-8 19:43
牛逼，
沙发？

---

作者: FUYUEPC    时间: 2020-10-8 21:23
不好用，不如那个DLL的

---

作者: callme大大    时间: 2020-10-9 13:35

FUYUEPC 发表于 2020-10-8 21:23
不好用，不如那个DLL的

这个不就是那个dll的，我都怀疑你压根没看内容

---

作者: hanson1025    时间: 2020-10-9 13:59
可以导入带图片的excel文件吗？

---

作者: callme大大    时间: 2020-10-9 15:17

易生情 发表于 2020-10-8 16:37
把源码直接上传上来啊。这样复制报错的

我的自用源码，里的一部分，有些涉及密码的不方便发，你自己复制了，有报错自己改下不就行了，这里好像也就少个空表格，自己新建表格到资源里自己调用就行了

---

作者: FUYUEPC    时间: 2020-10-10 08:07

callme大大 发表于 2020-10-9 13:35
这个不就是那个dll的，我都怀疑你压根没看内容

哈哈，恭喜你，答对了

---

作者: police0909    时间: 2020-10-15 01:55
能导出到sheet2嘛

---

作者: 淡妆素颜    时间: 2020-10-16 11:38
E: 【常用】易语言免安装excel超级列表框导出表格与导入表格 [修改]

---

作者: 2442295093    时间: 2020-10-22 23:46

---

作者: mojian    时间: 2020-10-27 09:40
看起来很实用，就是一般用不到excel

---

作者: 杨明煜    时间: 2020-10-28 17:22
xiexiefenxiang...................

---

作者: huxian    时间: 2020-11-15 12:02
这个可以啊，下载看看

---

作者: 尔白咩    时间: 2020-11-18 21:25
看起来很不错 可以学习学习

---

作者: winnerzyy    时间: 2020-11-22 17:27
不错不错 正在关注excel

---

作者: ylixx    时间: 2020-11-23 20:21
学习学习，自动办公

---

作者: ccfftt    时间: 2020-11-27 19:22
学习学习，自动办公

---

作者: FUYUEPC    时间: 2021-1-1 22:54
学习学习，自动办公

---

作者: 你的世界    时间: 2021-1-5 22:40
这个太厉害了

---

作者: 你的世界    时间: 2021-1-5 22:41

---

作者: 小吉哥    时间: 2021-1-6 12:03
这个太好了  先收藏

---

作者: e0406951    时间: 2021-1-13 03:11
这个可以啊，下载看看

---

作者: lm88818    时间: 2021-1-14 14:22
这个太厉害了

---

作者: e0406951    时间: 2021-1-17 15:49

---

作者: 指尖流淌    时间: 2021-1-28 17:59
谢谢分享！~

---

作者: andyfeifei    时间: 2021-1-29 12:24
支持一下哈哈哈哈

---

作者: gj6311004    时间: 2021-2-2 21:17
book.zc (“123”, Getkey (“123”))
这里用户名和密码怎么获取呀

---

作者: kantal    时间: 2021-3-2 09:12
谢谢分享，先收藏了

---

作者: a990350    时间: 2021-3-10 23:54
厉害,下来试试。感谢

---

作者: ooopwq    时间: 2021-3-14 22:46
谢谢分享！么么么么哒

---

作者: w317141444    时间: 2021-3-30 13:24
找不到类工作薄是啥意思

---

作者: 天堂鸟528    时间: 2021-4-1 22:39
学习下，正好一直在找，谢谢！

---

作者: xl990    时间: 2021-11-22 23:49
谢谢分享，会不会用看自己造化了

---

作者: hetlyb    时间: 2022-6-27 14:56
谢谢~~~~~~~~~

---

作者: hetlyb    时间: 2022-6-27 14:59

谢谢~~~~~~~~~~~~~~~~

---

作者: xianqin    时间: 2022-7-27 10:54
没有常量！！！？

---

作者: 维斯忒    时间: 2022-8-7 18:53
常量呢，不给怎么搞啊啊啊啊啊啊啊

---

作者: zk1987    时间: 2022-8-9 17:08
感谢，现在用的导出excel速度太慢了，试试这个

---

作者: gdjzhm    时间: 2022-11-5 19:28
谢谢，下载一个支持一次

---

作者: qq54411139    时间: 2022-11-20 00:26
感谢分享，很给力！~

---

作者: 忧伤小猫咪    时间: 2022-11-23 02:48

学习下，正好一直在找

---

作者: txjxjt    时间: 2023-3-5 10:52
复杂吗？1·

---

作者: 猩（腾讯博客）    时间: 2023-3-15 11:09
666666666666666666

---

作者: mcd711    时间: 2023-3-29 22:06
给力~~~~~~~~~

---

作者: xiaoxian1223    时间: 2023-4-25 14:00
导入之后有没有根据表格搜索对应参数对应填入表格呢？

---

作者: 3800150    时间: 2023-7-4 04:41
1602131452.jpg

---

作者: 3800150    时间: 2023-7-4 04:41
回 (book.打开 (excel路径))

---

作者: tanxiaoxiong    时间: 2023-10-13 16:34
#在这里快速回超级列表框保存为excel复#

---

作者: taoxian    时间: 2023-10-25 20:41
力~~~~~~~~~力~~~~~~~~~

---

作者: 南絮    时间: 2023-12-21 08:58
111111111111111111111111111111111111

---

作者: benxiaohai2004    时间: 2024-1-27 23:52
谢谢楼主分享

---

作者: 965205455    时间: 2024-4-19 09:50
        感谢分享，很给力！~

---

作者: jiajia0704    时间: 2024-4-30 11:14
能保存原格式吗

---

作者: jiajia0704    时间: 2024-4-30 11:27
常量表#空表格xlsx

---

作者: callme大大    时间: 2024-4-30 15:29

jiajia0704 发表于 2024-4-30 11:27
常量表#空表格xlsx

你倒是放一个空表格进去啊

---

作者: shuyeshuye    时间: 2024-5-9 01:27
感谢分享

---

作者: qinyoujian    时间: 2024-5-12 00:16
感谢！感谢

---

作者: gablove    时间: 2024-5-21 18:46
下载学习

---

作者: wanwan    时间: 2024-6-8 23:26
感谢！感谢

---

作者: xgg888wgy    时间: 2024-6-23 12:50

---

作者: fuyun2018    时间: 2024-9-11 14:20
不错支持

---

作者: oyg121    时间: 2024-10-2 21:12
学习学习

---

作者: oyg121    时间: 2024-10-2 21:12
感谢分享，很给力！~

---

作者: sukylzy    时间: 2024-10-13 20:50
谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢

---

作者: sukylzy    时间: 2024-10-13 20:51
谢谢谢谢

---

作者: 风人    时间: 2024-11-9 01:33
回复看看，弄丢了

---

作者: 766711831    时间: 2024-11-17 09:04
66666666666666666

---

作者: 766711831    时间: 2024-11-17 09:04
88888888888888888888888

---

作者: qzmylove    时间: 2024-11-21 05:22
回复看看，弄丢了

---

作者: 1365436    时间: 2024-12-30 14:50
感谢分享，很给力！~

---

作者: 爱书人飞    时间: 2025-1-9 22:54
感谢分享

---

作者: 小书臣    时间: 2025-3-24 14:28
        感谢分享，很给力！~

---

作者: 约定踏雪去看花    时间: 2025-4-7 13:57
表格常量不给？

---

作者: 钟先森0921    时间: 2025-4-24 22:09
6666666666666666666

---

作者: 钟先森0921    时间: 2025-4-24 22:09
赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞

---

欢迎光临 精易论坛 (https://125.confly.eu.org/)

Powered by Discuz! X3.4