超级列表框怎么导出选择框选中到excel里面

tyxy100

超级列表框怎么导出选择框选中到excel里面

cobi

超级列表框导出Excel.e (6.28 KB, 下载次数: 9)

2024-11-30 01:08 上传

点击文件名下载附件

tyxy100

cobi 发表于 2024-11-30 01:08

你这个很卡啊，并且选择后，随便选中一行后，就只导出了一行

cobi

tyxy100 发表于 2024-11-30 02:47
你这个很卡啊，并且选择后，随便选中一行后，就只导出了一行

超级列表框导出Excel.e (6.68 KB, 下载次数: 1)

2024-11-30 03:41 上传

点击文件名下载附件

按你要求选择框选中，那就选中的导出。
超级列表框的检查框无法被判断是否被勾选，只能判断表项是否被选择，要么取消检查框，直接让用户选择表项。
易语言《超级列表框》使用说明：
https://www.dywt.com.cn/help/iext/dt3.htm
若非要检查框勾选这类功能，可以在论坛找找超级列表框这类模块。
至于卡顿，我这边测试没有卡顿，你可以打开系统任务管理器进程中查看，是否打开了多个同名的EXCEL.EXE进程，如果这个同名的EXCEL文件被占用就会卡顿。






补充内容 (2024-11-30 03:50):
可以试试找下这个：EXDUI超级列表框

补充内容 (2024-11-30 03:58):
使用：超级列表框1.取当前状态图片 () 可判断到检查框是否被选中。
下面给你重新发个源码吧。

cobi

超级列表框检查框选中导出Excel.e (6.89 KB, 下载次数: 4)

2024-11-30 04:05 上传

点击文件名下载附件


若卡顿的话，数据过多会慢，同名的Excel文件被占用会慢.....


补充内容 (2024-11-30 04:18):
导出前判断一下：如果真 (超级列表框1.取已选择表项数 () ＞ 0) 再执行导出

熬夜

如果真 (超级列表框1.取当前状态图片 (i2 － 1) ＝ 1)   '1为检测框选中 0为不选中  条件你加到保存循环里

  

子程序名	返回值类型	公开	备 注
存列表信息

变量名	类 型	静态	数组	备 注
保存总	整数型
保存计次i	整数型
CUN_NR11	文本型

保存总 ＝ 超级列表框2.取表项数 ()
计次循环首 (保存总, 保存计次i)
CUN_NR11 ＝ CUN_NR11 ＋ 超级列表框2.取标题 (保存计次i － 1, 1) ＋ “----” ＋ 超级列表框2.取标题 (保存计次i － 1, 2) ＋ “----” ＋ 超级列表框2.取标题 (保存计次i － 1, 6) ＋ #换行符
计次循环尾 ()
写到文件 (取运行目录 () ＋ “\保存列表_WZMSLR.txt”, 到字节集 (CUN_NR11))
公告.加入文本 (“列表保存完成” ＋ #换行符 ＋ #换行符 )

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 存列表信息<br /> .局部变量 保存总, 整数型<br /> .局部变量 保存计次i, 整数型<br /> .局部变量 CUN_NR11, 文本型<br /> <br /> <br /> 保存总 ＝ 超级列表框2.取表项数 ()<br /> .计次循环首 (保存总, 保存计次i)<br />     CUN_NR11 ＝ CUN_NR11 ＋ 超级列表框2.取标题 (保存计次i － 1, 1) ＋ “----” ＋ 超级列表框2.取标题 (保存计次i － 1, 2) ＋ “----” ＋ 超级列表框2.取标题 (保存计次i － 1, 6) ＋ #换行符<br /> <br /> .计次循环尾 ()<br /> <br /> 写到文件 (取运行目录 () ＋ “\保存列表_WZMSLR.txt”, 到字节集 (CUN_NR11))<br /> 公告.加入文本 (“列表保存完成” ＋ #换行符 ＋ #换行符)

.版本 2
.支持库 iext

.子程序 选择存列表信息
.局部变量 保存总, 整数型
.局部变量 保存计次i, 整数型
.局部变量 CUN_NR11, 文本型


保存总 ＝ 超级列表框2.取表项数 ()
.计次循环首 (保存总, 保存计次i)
    .判断开始 (如果真 (超级列表框2.取当前状态图片 (i2 － 1) ＝ 1))
        CUN_NR11 ＝ CUN_NR11 ＋ 超级列表框2.取标题 (保存计次i － 1, 1) ＋ “----” ＋ 超级列表框2.取标题 (保存计次i － 1, 2) ＋ “----” ＋ 超级列表框2.取标题 (保存计次i － 1, 6) ＋ #换行符
    .默认

    .判断结束

    ' CUN_NR11 ＝ CUN_NR11 ＋ 超级列表框2.取标题 (保存计次i － 1, 1) ＋ “----” ＋ 超级列表框2.取标题 (保存计次i － 1, 2) ＋ “----” ＋ 超级列表框2.取标题 (保存计次i － 1, 6) ＋ #换行符

.计次循环尾 ()

写到文件 (取运行目录 () ＋ “\保存列表_WZMSLR.txt”, 到字节集 (CUN_NR11))
公告.加入文本 (“列表保存完成” ＋ #换行符 ＋ #换行符)

熬夜

  

子程序名	返回值类型	公开	备 注
选择存列表信息

变量名	类 型	静态	数组	备 注
保存总	整数型
保存计次i	整数型
CUN_NR11	文本型

保存总 ＝ 超级列表框2.取表项数 ()
计次循环首 (保存总, 保存计次i)
判断 (如果真 (超级列表框2.取当前状态图片 (i2 － 1) ＝ 1))
CUN_NR11 ＝ CUN_NR11 ＋ 超级列表框2.取标题 (保存计次i － 1, 1) ＋ “----” ＋ 超级列表框2.取标题 (保存计次i － 1, 2) ＋ “----” ＋ 超级列表框2.取标题 (保存计次i － 1, 6) ＋ #换行符



' CUN_NR11 ＝ CUN_NR11 ＋ 超级列表框2.取标题 (保存计次i － 1, 1) ＋ “----” ＋ 超级列表框2.取标题 (保存计次i － 1, 2) ＋ “----” ＋ 超级列表框2.取标题 (保存计次i － 1, 6) ＋ #换行符
计次循环尾 ()
写到文件 (取运行目录 () ＋ “\保存列表_WZMSLR.txt”, 到字节集 (CUN_NR11))
公告.加入文本 (“列表保存完成” ＋ #换行符 ＋ #换行符 )

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 选择存列表信息<br /> .局部变量 保存总, 整数型<br /> .局部变量 保存计次i, 整数型<br /> .局部变量 CUN_NR11, 文本型<br /> <br /> <br /> 保存总 ＝ 超级列表框2.取表项数 ()<br /> .计次循环首 (保存总, 保存计次i)<br />     .判断开始 (如果真 (超级列表框2.取当前状态图片 (i2 － 1) ＝ 1))<br />         CUN_NR11 ＝ CUN_NR11 ＋ 超级列表框2.取标题 (保存计次i － 1, 1) ＋ “----” ＋ 超级列表框2.取标题 (保存计次i － 1, 2) ＋ “----” ＋ 超级列表框2.取标题 (保存计次i － 1, 6) ＋ #换行符<br />     .默认<br /> <br />     .判断结束<br /> <br />     ' CUN_NR11 ＝ CUN_NR11 ＋ 超级列表框2.取标题 (保存计次i － 1, 1) ＋ “----” ＋ 超级列表框2.取标题 (保存计次i － 1, 2) ＋ “----” ＋ 超级列表框2.取标题 (保存计次i － 1, 6) ＋ #换行符<br /> <br /> .计次循环尾 ()<br /> <br /> 写到文件 (取运行目录 () ＋ “\保存列表_WZMSLR.txt”, 到字节集 (CUN_NR11))<br /> 公告.加入文本 (“列表保存完成” ＋ #换行符 ＋ #换行符)