求助 超级列表框导出表格文件

2987363174

求大神赏个超级列表框内容数据导出Excel文件的例程，论坛分享的一键导出excel模块有点问题

须烬欢

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
局_行	整数型
局_列	整数型

计次循环首 (10, 局_行)
超级列表框1.插入表项 (, , , , , )
计次循环首 (7, 局_列)
判断 (局_列 ＝ 1)
超级列表框1.置标题 (局_行 － 1, 局_列 － 1, “测试” ＋ 到文本 (局_行))
判断 (局_列 ＝ 2)
超级列表框1.置标题 (局_行 － 1, 局_列 － 1, 到文本 (取随机数 (100, 999)))
判断 (局_列 ＝ 3)
超级列表框1.置标题 (局_行 － 1, 局_列 － 1, 到文本 (四舍五入 (取随机数 (10000, 99900) ÷ 33, 取随机数 (2, 5))))
判断 (局_列 ＝ 4)
超级列表框1.置标题 (局_行 － 1, 局_列 － 1, 到文本 (四舍五入 (取随机数 (1000, 9999) ÷ 100, 2)) ＋ “%”)
判断 (局_列 ＝ 5)
超级列表框1.置标题 (局_行 － 1, 局_列 － 1, “-” ＋ 到文本 (取随机数 (100, 999)))
判断 (局_列 ＝ 6)
超级列表框1.置标题 (局_行 － 1, 局_列 － 1, “-” ＋ 到文本 (四舍五入 (取随机数 (10000, 99900) ÷ 33, 取随机数 (2, 5))))
判断 (局_列 ＝ 7)
超级列表框1.置标题 (局_行 － 1, 局_列 － 1, “-” ＋ 到文本 (四舍五入 (取随机数 (1000, 9999) ÷ 100, 2)) ＋ “%”)



计次循环尾 ()
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_按钮_导出勾选数据到excel_被单击

超级列表框导出到EXCEL文件 (取运行目录 () ＋ “\”, 到文本 (取随机数 (33333, 55555)) ＋ “.xlsx”, 超级列表框1, 真)

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

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 局_行, 整数型<br /> .局部变量 局_列, 整数型<br /> <br /> .计次循环首 (10, 局_行)<br />     超级列表框1.插入表项 (, , , , , )<br />     .计次循环首 (7, 局_列)<br /> <br />         .判断开始 (局_列 ＝ 1)<br />             超级列表框1.置标题 (局_行 － 1, 局_列 － 1, “测试” ＋ 到文本 (局_行))<br />         .判断 (局_列 ＝ 2)<br />             超级列表框1.置标题 (局_行 － 1, 局_列 － 1, 到文本 (取随机数 (100, 999)))<br /> <br />         .判断 (局_列 ＝ 3)<br />             超级列表框1.置标题 (局_行 － 1, 局_列 － 1, 到文本 (四舍五入 (取随机数 (10000, 99900) ÷ 33, 取随机数 (2, 5))))<br />         .判断 (局_列 ＝ 4)<br />             超级列表框1.置标题 (局_行 － 1, 局_列 － 1, 到文本 (四舍五入 (取随机数 (1000, 9999) ÷ 100, 2)) ＋ “%”)<br /> <br />         .判断 (局_列 ＝ 5)<br />             超级列表框1.置标题 (局_行 － 1, 局_列 － 1, “-” ＋ 到文本 (取随机数 (100, 999)))<br />         .判断 (局_列 ＝ 6)<br />             超级列表框1.置标题 (局_行 － 1, 局_列 － 1, “-” ＋ 到文本 (四舍五入 (取随机数 (10000, 99900) ÷ 33, 取随机数 (2, 5))))<br />         .判断 (局_列 ＝ 7)<br />             超级列表框1.置标题 (局_行 － 1, 局_列 － 1, “-” ＋ 到文本 (四舍五入 (取随机数 (1000, 9999) ÷ 100, 2)) ＋ “%”)<br />         .默认<br /> <br />         .判断结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> <br /> <br /> <br /> .子程序 _按钮_导出勾选数据到excel_被单击<br /> <br /> 超级列表框导出到EXCEL文件 (取运行目录 () ＋ “\”, 到文本 (取随机数 (33333, 55555)) ＋ “.xlsx”, 超级列表框1, 真)

须烬欢

.版本 2
.支持库 iext

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕
.局部变量 局_行, 整数型
.局部变量 局_列, 整数型

.计次循环首 (10, 局_行)
    超级列表框1.插入表项 (, , , , , )
    .计次循环首 (7, 局_列)

        .判断开始 (局_列 ＝ 1)
            超级列表框1.置标题 (局_行 － 1, 局_列 － 1, “测试” ＋ 到文本 (局_行))
        .判断 (局_列 ＝ 2)
            超级列表框1.置标题 (局_行 － 1, 局_列 － 1, 到文本 (取随机数 (100, 999)))

        .判断 (局_列 ＝ 3)
            超级列表框1.置标题 (局_行 － 1, 局_列 － 1, 到文本 (四舍五入 (取随机数 (10000, 99900) ÷ 33, 取随机数 (2, 5))))
        .判断 (局_列 ＝ 4)
            超级列表框1.置标题 (局_行 － 1, 局_列 － 1, 到文本 (四舍五入 (取随机数 (1000, 9999) ÷ 100, 2)) ＋ “%”)

        .判断 (局_列 ＝ 5)
            超级列表框1.置标题 (局_行 － 1, 局_列 － 1, “-” ＋ 到文本 (取随机数 (100, 999)))
        .判断 (局_列 ＝ 6)
            超级列表框1.置标题 (局_行 － 1, 局_列 － 1, “-” ＋ 到文本 (四舍五入 (取随机数 (10000, 99900) ÷ 33, 取随机数 (2, 5))))
        .判断 (局_列 ＝ 7)
            超级列表框1.置标题 (局_行 － 1, 局_列 － 1, “-” ＋ 到文本 (四舍五入 (取随机数 (1000, 9999) ÷ 100, 2)) ＋ “%”)
        .默认

        .判断结束

    .计次循环尾 ()
.计次循环尾 ()



.子程序 _按钮_导出勾选数据到excel_被单击

超级列表框导出到EXCEL文件 (取运行目录 () ＋ “\”, 到文本 (取随机数 (33333, 55555)) ＋ “.xlsx”, 超级列表框1, 真)

须烬欢

看看我发的这个  有例子  https://bbs.125.la/forum.php?mod ... &extra=page%3D1

2987363174

茶颜不悦色 发表于 2020-10-5 13:17
看看我发的这个  有例子  https://bbs.125.la/forum.php?mod=viewthread&tid=14633600&extra=page%3D1 ...

楼主可以补充一个 demo例子吗

须烬欢

选择框是否选中.e (1.01 MB, 下载次数: 24)

2020-10-5 14:09 上传

点击文件名下载附件

须烬欢

安排上了  

2987363174

茶颜不悦色 发表于 2020-10-5 14:10

超级列表框导出到EXCEL文件 ，还差一个模块 这个模块和我的不一样

2987363174

茶颜不悦色 发表于 2020-10-5 14:10

超级列表框导出到EXCEL文件 还差一个模块 这个模块和我的不一样

寒潮

到处CSV，多省事。