关于列表框导出Excel文件

卓克祥

  

子程序名	返回值类型	公开	备 注
_按钮_保存到文件Excel_被单击

变量名	类 型	静态	数组	备 注
i1	整数型
i	整数型
时间文本	文本型

Excel程序1.创建 ()
Excel工作簿1.置程序 (Excel程序1)
时间文本 ＝ 到文本 (取现行时间 ())
Excel工作簿1.打开 (取运行目录 () ＋ 时间文本 ＋ “.xlsx”)
计次循环首 (超级列表框1.取列数 (), i1)
Excel工作簿1.首单元格 ＝ 多项选择 (i1, “A”, “B”, “C”) ＋ “1”
Excel工作簿1.尾单元格 ＝ 多项选择 (i1, “A”, “B”, “C”) ＋ “1”
Excel工作簿1.内容 ＝ 超级列表框1.取列标题 (i1 － 1)
计次循环尾 ()
计次循环首 (超级列表框1.取列数 (), i1)
计次循环首 (超级列表框1.取列数 (), i1)
Excel工作簿1.首单元格 ＝ 多项选择 (i1, “A”, “B”, “C”) ＋ 到文本 (i ＋ 1)
Excel工作簿1.尾单元格 ＝ 多项选择 (i1, “A”, “B”, “C”) ＋ 到文本 (i ＋ 1)
Excel工作簿1.内容 ＝ 超级列表框1.取标题 (i － 1, i1 － 1)
计次循环尾 ()
计次循环尾 ()
Excel工作簿1.保存 (取运行目录 () ＋ 时间文本 ＋ “.xlsx”)
Excel工作簿1.关闭 ()

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

.版本 2<br /> .支持库 eExcel2000<br /> .支持库 iext<br /> <br /> .子程序 _按钮_保存到文件Excel_被单击<br /> .局部变量 i1, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 时间文本, 文本型<br /> <br /> Excel程序1.创建 ()<br /> Excel工作簿1.置程序 (Excel程序1)<br /> 时间文本 ＝ 到文本 (取现行时间 ())<br /> Excel工作簿1.打开 (取运行目录 () ＋ 时间文本 ＋ “.xlsx”)<br /> .计次循环首 (超级列表框1.取列数 (), i1)<br />     Excel工作簿1.首单元格 ＝ 多项选择 (i1, “A”, “B”, “C”) ＋ “1”<br />     Excel工作簿1.尾单元格 ＝ 多项选择 (i1, “A”, “B”, “C”) ＋ “1”<br />     Excel工作簿1.内容 ＝ 超级列表框1.取列标题 (i1 － 1)<br /> .计次循环尾 ()<br /> .计次循环首 (超级列表框1.取列数 (), i1)<br />     .计次循环首 (超级列表框1.取列数 (), i1)<br />         Excel工作簿1.首单元格 ＝ 多项选择 (i1, “A”, “B”, “C”) ＋ 到文本 (i ＋ 1)<br />         Excel工作簿1.尾单元格 ＝ 多项选择 (i1, “A”, “B”, “C”) ＋ 到文本 (i ＋ 1)<br />         Excel工作簿1.内容 ＝ 超级列表框1.取标题 (i － 1, i1 － 1)<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> Excel工作簿1.保存 (取运行目录 () ＋ 时间文本 ＋ “.xlsx”)<br /> Excel工作簿1.关闭 ()

如图我这边之前学的一段代码就是利用超级列表框的内容导出为Excel文件，但是我重新写后发现文件空白。

  

子程序名	返回值类型	公开	备 注
_时钟_超级列表_周期事件			超级列表获取保存信息

变量名	类 型	静态	数组	备 注
索引	整数型

' 关闭
时钟_超级列表.时钟周期 ＝ 0
' 执行
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 编辑框_昵称.内容)
超级列表框1.置标题 (索引, 1, 编辑框_金额.内容)
超级列表框1.置标题 (索引, 2, 编辑框_订单.内容)

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _时钟_超级列表_周期事件, , , 超级列表获取保存信息<br /> .局部变量 索引, 整数型<br /> <br /> ' 关闭<br /> 时钟_超级列表.时钟周期 ＝ 0<br /> ' 执行<br /> 索引 ＝ 超级列表框1.插入表项 (, , , , , )<br /> 超级列表框1.置标题 (索引, 0, 编辑框_昵称.内容)<br /> 超级列表框1.置标题 (索引, 1, 编辑框_金额.内容)<br /> 超级列表框1.置标题 (索引, 2, 编辑框_订单.内容)

我这边有写列表框的内容的

花间一壶酒

计次循环首 (超级列表框1.取列数 (), i1)
计次循环首 (超级列表框1.取列数 (), i1)
Excel工作簿1.首单元格 ＝ 多项选择 (i1, “A”, “B”, “C”) ＋ 到文本 (i ＋ 1)
Excel工作簿1.尾单元格 ＝ 多项选择 (i1, “A”, “B”, “C”) ＋ 到文本 (i ＋ 1)
Excel工作簿1.内容 ＝ 超级列表框1.取标题 (i － 1, i1 － 1)
计次循环尾 ()
计次循环尾 ()

这啥玩意啊。。。。。逻辑都不通  两个循环共用一个变量？

haoren1212

Excel工作簿1.保存 (取运行目录 () ＋“\”+ 时间文本 ＋ “.xlsx”)

haoren1212

花间一壶酒 发表于 2025-2-28 17:40
计次循环首 (超级列表框1.取列数 (), i1)
计次循环首 (超级列表框1.取列数 (), i1)
Excel工作簿1.首单元格  ...

6，我刚刚都没注意到

卓克祥

花间一壶酒 发表于 2025-2-28 17:40
计次循环首 (超级列表框1.取列数 (), i1)
计次循环首 (超级列表框1.取列数 (), i1)
Excel工作簿1.首单元格  ...

大哥，我眼瞎了，我真没注意到，因为我那时候抄写本子里写错了