精易论坛

标题: 超级列表框导出 [打印本页]

作者: 张宝元 时间: 2024-7-31 15:38
标题: 超级列表框导出
.版本 2
.支持库 iext

.子程序超级列表框导出xls, 逻辑型, 公开, 只适用于报表列表框
.参数保存文件, 文本型, , 保存路径
.参数列表框, 超级列表框, , 超级列表框对象
.参数是否保存表头, 逻辑型, , 为真保存，为假不保存
.参数报表标题, 文本型, 可空, 为空无标题，
.局部变量局_文件号, 整数型
.局部变量列数, 整数型
.局部变量表项数, 整数型
.局部变量 i, 整数型
.局部变量 j, 整数型
.局部变量 p, 整数型

局_文件号＝打开文件 (保存文件, 4, 1)
表项数＝列表框.取表项数 ()
列数＝列表框.取列数 ()
移到文件首 (局_文件号)
.如果真 (报表标题 ≠ “”)
写文本行 (局_文件号, “<table border=” ＋ #引号＋ “1” ＋ #引号＋ “>”)
写文本行 (局_文件号, “  <tr>”)
写文本行 (局_文件号, “<th  colspan='” ＋到文本 (列数) ＋ “' style='font-family:宋体;font-size:30px;'>” ＋报表标题＋ “</th>”)
写文本行 (局_文件号, “  </tr>”)
写文本行 (局_文件号, “</table>”)
.如果真结束
写文本行 (局_文件号, “<table border=” ＋ #引号＋ “1” ＋ #引号＋ “>”)
.如果真 (是否保存表头＝真)
写文本行 (局_文件号, “  <tr>”)
.计次循环首 (列数, p)
      写文本行 (局_文件号, “ <th>” ＋列表框.取列标题 (p － 1) ＋ “</th>”)
.计次循环尾 ()
写文本行 (局_文件号, “  </tr>”)
.如果真结束
.计次循环首 (表项数, i)
写文本行 (局_文件号, “  <tr>”)
.计次循环首 (列数, j)
      写文本行 (局_文件号, “ <td>” ＋列表框.取标题 (i － 1, j － 1) ＋ “</td>”)
.计次循环尾 ()
写文本行 (局_文件号, “  </tr>”)
.计次循环尾 ()
写文本行 (局_文件号, “</table>”)
关闭文件 (局_文件号)
返回 (真)

上面是源码是一个大佬给写的，发帖时实测是非常好用的，但是只有导出功能，想写个对应的导入例子，但是能力有限，发出来大家借鉴，如果有大佬看到，还望能整个导入的例子放下面。

作者: kyo9766 时间: 2024-7-31 15:39
本帖最后由 kyo9766 于 2024-7-31 15:41 编辑

这个写法简单实用，感谢分享

如果只是对导出的这个文件进行导入的话，可以吧导出的方式反过来就可以导入了，如果想导入 excel文件，也可以用精易模块里面的导入

作者: 一指温柔 时间: 2024-7-31 16:55
感谢分享，很给力！~

作者: ktbpy 时间: 2024-7-31 16:56
感谢分享

作者: qqmqqg 时间: 2024-7-31 17:23
6666666666666666666

作者: 卡卡1111 时间: 2024-7-31 17:37

感谢分享，很给力！~

作者: txbjg 时间: 2024-7-31 18:50
EXECL文件有专门导入的模块。不要自己麻烦

作者: pipicool 时间: 2024-7-31 19:51
学习一下

作者: 艾玛克138 时间: 2024-7-31 20:53
好好学习，努力向上

作者: renhe2018 时间: 2024-8-1 03:40
这个思路很好。值得学习。

作者: 查过 时间: 2024-8-1 07:27
下个学习一下

作者: 豆豆灰常开心 时间: 2024-8-1 07:32
已经顶贴，感谢您对论坛的支持！

作者: year1970 时间: 2024-8-1 08:02
感谢分享

作者: 张张利利 时间: 2024-8-1 08:48
支持你啊啊

作者: 张张利利 时间: 2024-8-1 08:49
支持你啊啊

作者: 一指温柔 时间: 2024-8-1 08:56
感谢发布原创作品，精易因你更精彩！

作者: 乜小浩 时间: 2024-8-1 10:40
已经顶贴，感谢您对论坛的支持！

作者: 285275928 时间: 2024-8-1 17:06
感谢发布原创作品，精易因你更精彩！

作者: 张宝元 时间: 2024-8-1 20:10

txbjg 发表于 2024-7-31 18:50
EXECL文件有专门导入的模块。不要自己麻烦

老表，辛苦发一个能用的否

作者: 396384183 时间: 2024-8-2 08:37

支持开源~！感谢分享

作者: pshq123 时间: 2024-8-2 08:47

作者: 胖子葛格 时间: 2024-8-3 09:50
感谢大神分享

作者: wgqxj 时间: 2024-8-4 12:23
谢谢分享

作者: Mr.huang 时间: 2024-8-4 12:28
谢谢分享

作者: 熊不熊 时间: 2024-12-4 21:18
感谢分享，很给力！~

作者: 张宝元 时间: 2024-12-11 17:26
没有币了，哪位好心人用得到的奖励点哈

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