关于超级列表框导出Excel问题

卓克祥

  

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

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

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

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

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

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

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

.版本 2<br /> .支持库 iext<br /> .支持库 eExcel2000<br /> <br /> .子程序 _时钟_超级列表_周期事件, , , 超级列表获取保存信息<br /> .局部变量 索引, 整数型<br /> <br /> ' 关闭<br /> 时钟_超级列表.时钟周期 ＝ 0<br /> ' 执行<br /> 索引 ＝ 超级列表框1.插入表项 (, , , , , )<br /> 超级列表框1.置标题 (索引, 0, 编辑框_昵称.内容)<br /> 超级列表框1.置标题 (索引, 1, 编辑框_金额.内容)<br /> 超级列表框1.置标题 (索引, 2, 编辑框_订单.内容)<br /> 超级列表框1.置标题 (索引, 3, 编辑框_时间.内容)<br /> <br /> .子程序 _按钮_保存到文件Excel_被单击, , , 导出Excel<br /> .局部变量 i1, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 时间文本, 文本型<br /> <br /> Excel程序1.创建 ()<br /> Excel工作簿1.置程序 (Excel程序1)<br /> 时间文本 ＝ 到文本 (取现行时间 ())<br /> Excel工作簿1.打开 (取运行目录 () ＋ 时间文本 ＋ “.xlsx”)<br /> Excel工作簿1.表格序号 ＝ 1<br /> <br /> .计次循环首 (超级列表框1.取列数 (), i1)<br />     Excel工作簿1.首单元格 ＝ 多项选择 (i1, “A”, “B”, “C”, “D”) ＋ “1”  ' 多个列表头则多加一个以此类推ABCDEFGHIJK<br />     Excel工作簿1.尾单元格 ＝ 多项选择 (i1, “A”, “B”, “C”, “D”) ＋ “1”<br />     Excel工作簿1.内容 ＝ 超级列表框1.取列标题 (i1 － 1)<br /> .计次循环尾 ()<br /> .计次循环首 (超级列表框1.取表项数 (), i)<br /> <br />     .计次循环首 (超级列表框1.取列数 (), i1)<br />         Excel工作簿1.首单元格 ＝ 多项选择 (i1, “A”, “B”, “C”, “D”) ＋ 到文本 (i ＋ 1)<br />         Excel工作簿1.尾单元格 ＝ 多项选择 (i1, “A”, “B”, “C”, “D”) ＋ 到文本 (i ＋ 1)<br />         Excel工作簿1.内容 ＝ 超级列表框1.取标题 (i － 1, i1 － 1)<br />     .计次循环尾 ()<br /> <br /> .计次循环尾 ()<br /> Excel工作簿1.保存 (取运行目录 () ＋ 时间文本 ＋ “.xlsx”)<br /> Excel工作簿1.关闭 ()

关于超级列表框导出Excel文件时候会发现部分数值丢失变为0000 还请大佬指教

高先生

超级列表框导出到excel.e (104.29 KB, 下载次数: 27)

2025-2-28 19:22 上传

点击文件名下载附件

花间一壶酒

单元格格式问题   需要更改单元格格式  一般情况改为文本就行了

卓克祥

高先生 发表于 2025-2-28 19:22

感谢大哥的支持就是咱这个我看的头皮发麻哈哈

卓克祥

花间一壶酒 发表于 2025-2-28 19:25
单元格格式问题   需要更改单元格格式  一般情况改为文本就行了

您看看那个？我研究大半天

卓克祥

花间一壶酒 发表于 2025-2-28 19:25
单元格格式问题   需要更改单元格格式  一般情况改为文本就行了

  

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

' 关闭
时钟_保存Excel.时钟周期 ＝ 0
延迟 (50)
Excel程序1.创建 ()
Excel工作簿1.置程序 (Excel程序1)
时间文本 ＝ 到文本 (取现行时间 ())
Excel工作簿1.打开 (取运行目录 () ＋ 时间文本 ＋ “.xlsx”)
Excel工作簿1.表格序号 ＝ 1
计次循环首 (超级列表框1.取列数 (), i1)
Excel工作簿1.首单元格 ＝ 多项选择 (i1, “A”, “B”, “C”, “D”) ＋ “1”  ' 多个列表头则多加一个以此类推ABCDEFGHIJK
Excel工作簿1.尾单元格 ＝ 多项选择 (i1, “A”, “B”, “C”, “D”) ＋ “1”
Excel工作簿1.内容格式 ＝ “@”
Excel工作簿1.内容 ＝ 超级列表框1.取列标题 (i1 － 1)
计次循环尾 ()
计次循环首 (超级列表框1.取表项数 (), i)
计次循环首 (超级列表框1.取列数 (), i1)
Excel工作簿1.首单元格 ＝ 多项选择 (i1, “A”, “B”, “C”, “D”) ＋ 到文本 (i ＋ 1)
Excel工作簿1.尾单元格 ＝ 多项选择 (i1, “A”, “B”, “C”, “D”) ＋ 到文本 (i ＋ 1)
Excel工作簿1.内容格式 ＝ “@”
Excel工作簿1.内容 ＝ 超级列表框1.取标题 (i － 1, i1 － 1)
计次循环尾 ()
计次循环尾 ()
Excel工作簿1.保存 (取运行目录 () ＋ 时间文本 ＋ “.xlsx”)
Excel工作簿1.关闭 ()

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

.版本 2<br /> .支持库 spec<br /> .支持库 eExcel2000<br /> .支持库 iext<br /> <br /> .局部变量 i1, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 时间文本, 文本型<br /> <br /> ' 关闭<br /> 时钟_保存Excel.时钟周期 ＝ 0<br /> 延迟 (50)<br /> Excel程序1.创建 ()<br /> Excel工作簿1.置程序 (Excel程序1)<br /> 时间文本 ＝ 到文本 (取现行时间 ())<br /> Excel工作簿1.打开 (取运行目录 () ＋ 时间文本 ＋ “.xlsx”)<br /> Excel工作簿1.表格序号 ＝ 1<br /> <br /> .计次循环首 (超级列表框1.取列数 (), i1)<br />     Excel工作簿1.首单元格 ＝ 多项选择 (i1, “A”, “B”, “C”, “D”) ＋ “1”  ' 多个列表头则多加一个以此类推ABCDEFGHIJK<br />     Excel工作簿1.尾单元格 ＝ 多项选择 (i1, “A”, “B”, “C”, “D”) ＋ “1”<br />     Excel工作簿1.内容格式 ＝ “@”<br />     Excel工作簿1.内容 ＝ 超级列表框1.取列标题 (i1 － 1)<br /> .计次循环尾 ()<br /> .计次循环首 (超级列表框1.取表项数 (), i)<br /> <br />     .计次循环首 (超级列表框1.取列数 (), i1)<br />         Excel工作簿1.首单元格 ＝ 多项选择 (i1, “A”, “B”, “C”, “D”) ＋ 到文本 (i ＋ 1)<br />         Excel工作簿1.尾单元格 ＝ 多项选择 (i1, “A”, “B”, “C”, “D”) ＋ 到文本 (i ＋ 1)<br />         Excel工作簿1.内容格式 ＝ “@”<br />         Excel工作簿1.内容 ＝ 超级列表框1.取标题 (i － 1, i1 － 1)<br />     .计次循环尾 ()<br /> <br /> .计次循环尾 ()<br /> Excel工作簿1.保存 (取运行目录 () ＋ 时间文本 ＋ “.xlsx”)<br /> Excel工作簿1.关闭 ()

大佬的指教往往简单而朴树，我才注意到有内容格式这个语句