超级列表框导出

张宝元 · 发表于 2024-7-31 15:38:16

.版本 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>”)
关闭文件 (局_文件号)
返回 (真)

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