怎么把超级列表框内容导出Excel格式

浪子阿浩

怎么把超级列表框内容导出Excel格式

曦月

例子
demo.e (1.04 MB, 下载次数: 15)

2025-9-6 20:28 上传

点击文件名下载附件

补充内容 (2025-9-6 20:30):
如果想用模块的话，可以试试这个
https://bbs.ijingyi.com/forum.php?mod=viewthread&tid=14852815

houtian

超级列表框_EXCEL_导入导出  V1.7.1 添加XLS格式
https://bbs.ijingyi.com/forum.php?mod=viewthread&tid=14855578
(出处: 精易论坛)

试试这个, 要么使用LibXL自己导出

补充内容 (2025-9-6 20:30):
你的超级列表框又不能放公式, 干脆用,分割, 保存成csv格式, 用excel打开一样, 还省事

曦月

想简单一点，就用这个，这个是我自己目前在用的

  

子程序名	返回值类型	公开	备 注
导出数据

变量名	类 型	静态	数组	备 注
文档名	文本型
路径	文本型
局部_计次1	整数型
局部_计次	整数型

进度条1.位置 ＝ 0
文档名 ＝ 编辑框导入文件名.内容 ＋ “.xls”
路径 ＝ 取运行目录 ()
线程_初始化COM库 ()
Excel程序1.创建 ()
Excel工作簿1.置程序 (Excel程序1)
Excel工作簿1.打开 (路径 ＋ “\” ＋ 文档名)
进度条1.最大位置 ＝ 超级列表框1.取表项数 ()
计次循环首 (超级列表框1.取表项数 (), 局部_计次)
处理事件 ()
计次循环首 (4, 局部_计次1)
Excel工作簿1.首单元格 ＝ 字符 (97 ＋ 局部_计次1 － 1) ＋ 到文本 (局部_计次 ＋ 1)
Excel工作簿1.尾单元格 ＝ 字符 (97 ＋ 局部_计次1 － 1) ＋ 到文本 (局部_计次 ＋ 1)
Excel工作簿1.内容格式 ＝ “@”
Excel工作簿1.内容 ＝ 超级列表框1.取标题 (局部_计次 － 1, 局部_计次1 － 1)
计次循环尾 ()
进度条1.位置 ＝ 进度条1.位置 ＋ 1
计次循环尾 ()
调试输出 (“数据导出完成”)
Excel工作簿1.保存 (路径 ＋ “\” ＋ 文档名)
Excel工作簿1.关闭 ()
Excel工作簿1.释放 ()
Excel程序1.退出 ()
Excel程序1.释放 ()
线程_取消COM库 ()

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

.版本 2<br /> .支持库 eExcel2000<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 导出数据<br /> .局部变量 文档名, 文本型<br /> .局部变量 路径, 文本型<br /> .局部变量 局部_计次1, 整数型<br /> .局部变量 局部_计次, 整数型<br /> <br /> 进度条1.位置 ＝ 0<br /> 文档名 ＝ 编辑框导入文件名.内容 ＋ “.xls”<br /> 路径 ＝ 取运行目录 ()<br /> 线程_初始化COM库 ()<br /> <br /> Excel程序1.创建 ()<br /> Excel工作簿1.置程序 (Excel程序1)<br /> Excel工作簿1.打开 (路径 ＋ “\” ＋ 文档名)<br /> 进度条1.最大位置 ＝ 超级列表框1.取表项数 ()<br /> .计次循环首 (超级列表框1.取表项数 (), 局部_计次)<br />     处理事件 ()<br />     .计次循环首 (4, 局部_计次1)<br />         Excel工作簿1.首单元格 ＝ 字符 (97 ＋ 局部_计次1 － 1) ＋ 到文本 (局部_计次 ＋ 1)<br />         Excel工作簿1.尾单元格 ＝ 字符 (97 ＋ 局部_计次1 － 1) ＋ 到文本 (局部_计次 ＋ 1)<br />         Excel工作簿1.内容格式 ＝ “@”<br />         Excel工作簿1.内容 ＝ 超级列表框1.取标题 (局部_计次 － 1, 局部_计次1 － 1)<br />     .计次循环尾 ()<br />     进度条1.位置 ＝ 进度条1.位置 ＋ 1<br /> .计次循环尾 ()<br /> <br /> 调试输出 (“数据导出完成”)<br /> Excel工作簿1.保存 (路径 ＋ “\” ＋ 文档名)<br /> Excel工作簿1.关闭 ()<br /> Excel工作簿1.释放 ()<br /> Excel程序1.退出 ()<br /> Excel程序1.释放 ()<br /> 线程_取消COM库 ()