超级列表框导出excel的时候数字会变E

fksdehfk778

超级列表框导出excel的时候数字会变E  这个怎么办
比如这样？

番茄吧

导出的时候这一列可以选成文本型

b0y

fksdehfk778

b0y 发表于 2025-2-19 11:45

大佬 可以发一下 这个导出的代码吗

b0y

fksdehfk778 发表于 2025-2-19 12:03
大佬 可以发一下 这个导出的代码吗

libxl.rar (1.35 MB, 下载次数: 12)

2025-2-19 12:04 上传

点击文件名下载附件

番茄吧

如果导出  csv 的话可以在前边加个 英文双引号

aaaa,sssss,"233233423423423423434234,sxsdfsdfsdf

打开后是看不到这个双引号的，还能保持文本型

fksdehfk778

番茄吧 发表于 2025-2-19 12:20
如果导出  csv 的话可以在前边加个 英文双引号

aaaa,sssss,"233233423423423423434234,sxsdfsdfsdf

  

子程序名	返回值类型	公开	备 注
超级列表框_导出xls	逻辑型		只适用于报表列表框
参数名	类 型	参考	可空	数组	备 注
保存文件	文本型				保存路径
列表框	超级列表框				超级列表框对象
是否保存表头	逻辑型				为真保存，为假不保存
报表标题	文本型				为空无标题，

变量名	类 型	静态	数组	备 注
局_文件号	整数型
列数	整数型
表项数	整数型
i	整数型
j	整数型
p	整数型

局_文件号 ＝ 打开文件 (保存文件, 4, 1)
表项数 ＝ 列表框.取表项数 ()
列数 ＝ 列表框.取列数 ()
移到文件首 (局_文件号)
如果真 (报表标题 ≠ “”)
写文本行 (局_文件号, #超级列表框_导出xls_常量3 )
写文本行 (局_文件号, “  ”)
写文本行 (局_文件号, “” ＋ 报表标题 ＋ “”)
写文本行 (局_文件号, “  ”)
写文本行 (局_文件号, #超级列表框_导出xls_常量2 )
写文本行 (局_文件号, #超级列表框_导出xls_常量1 )
如果真 (是否保存表头 ＝ 真)
写文本行 (局_文件号, “  ”)
计次循环首 (列数, p)
写文本行 (局_文件号, “    ” ＋ 列表框.取列标题 (p － 1) ＋ “”)
计次循环尾 ()
写文本行 (局_文件号, “  ”)
计次循环首 (表项数, i)
写文本行 (局_文件号, “  ”)
计次循环首 (列数, j)
写文本行 (局_文件号, “    ” ＋ 列表框.取标题 (i － 1, j － 1) ＋ “”)
计次循环尾 ()
写文本行 (局_文件号, “  ”)
计次循环尾 ()
写文本行 (局_文件号, #超级列表框_导出xls_常量2 )
关闭文件 (局_文件号)
返回 (真)

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 超级列表框_导出xls, 逻辑型, 公开, 只适用于报表列表框<br /> .参数 保存文件, 文本型, , 保存路径<br /> .参数 列表框, 超级列表框, , 超级列表框对象<br /> .参数 是否保存表头, 逻辑型, , 为真保存，为假不保存<br /> .参数 报表标题, 文本型, 可空, 为空无标题，<br /> .局部变量 局_文件号, 整数型<br /> .局部变量 列数, 整数型<br /> .局部变量 表项数, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 p, 整数型<br /> <br /> 局_文件号 ＝ 打开文件 (保存文件, 4, 1)<br /> 表项数 ＝ 列表框.取表项数 ()<br /> 列数 ＝ 列表框.取列数 ()<br /> 移到文件首 (局_文件号)<br /> .如果真 (报表标题 ≠ “”)<br />     写文本行 (局_文件号, #超级列表框_导出xls_常量3)<br />     写文本行 (局_文件号, “  ”)<br />     写文本行 (局_文件号, “” ＋ 报表标题 ＋ “”)<br />     写文本行 (局_文件号, “  ”)<br />     写文本行 (局_文件号, #超级列表框_导出xls_常量2)<br /> .如果真结束<br /> 写文本行 (局_文件号, #超级列表框_导出xls_常量1)<br /> .如果真 (是否保存表头 ＝ 真)<br />     写文本行 (局_文件号, “  ”)<br />     .计次循环首 (列数, p)<br />         写文本行 (局_文件号, “    ” ＋ 列表框.取列标题 (p － 1) ＋ “”)<br />     .计次循环尾 ()<br />     写文本行 (局_文件号, “  ”)<br /> .如果真结束<br /> .计次循环首 (表项数, i)<br />     写文本行 (局_文件号, “  ”)<br />     .计次循环首 (列数, j)<br />         写文本行 (局_文件号, “    ” ＋ 列表框.取标题 (i － 1, j － 1) ＋ “”)<br />     .计次循环尾 ()<br />     写文本行 (局_文件号, “  ”)<br /> .计次循环尾 ()<br /> 写文本行 (局_文件号, #超级列表框_导出xls_常量2)<br /> 关闭文件 (局_文件号)<br /> 返回 (真)

大佬 可以看看这样的能改么。  这个是我现在用的导出

fksdehfk778

b0y 发表于 2025-2-19 12:04

  

子程序名	返回值类型	公开	备 注
超级列表框_导出xls	逻辑型		只适用于报表列表框
参数名	类 型	参考	可空	数组	备 注
保存文件	文本型				保存路径
列表框	超级列表框				超级列表框对象
是否保存表头	逻辑型				为真保存，为假不保存
报表标题	文本型				为空无标题，

变量名	类 型	静态	数组	备 注
局_文件号	整数型
列数	整数型
表项数	整数型
i	整数型
j	整数型
p	整数型

局_文件号 ＝ 打开文件 (保存文件, 4, 1)
表项数 ＝ 列表框.取表项数 ()
列数 ＝ 列表框.取列数 ()
移到文件首 (局_文件号)
如果真 (报表标题 ≠ “”)
写文本行 (局_文件号, #超级列表框_导出xls_常量3 )
写文本行 (局_文件号, “  ”)
写文本行 (局_文件号, “” ＋ 报表标题 ＋ “”)
写文本行 (局_文件号, “  ”)
写文本行 (局_文件号, #超级列表框_导出xls_常量2 )
写文本行 (局_文件号, #超级列表框_导出xls_常量1 )
如果真 (是否保存表头 ＝ 真)
写文本行 (局_文件号, “  ”)
计次循环首 (列数, p)
写文本行 (局_文件号, “    ” ＋ 列表框.取列标题 (p － 1) ＋ “”)
计次循环尾 ()
写文本行 (局_文件号, “  ”)
计次循环首 (表项数, i)
写文本行 (局_文件号, “  ”)
计次循环首 (列数, j)
写文本行 (局_文件号, “    ” ＋ 列表框.取标题 (i － 1, j － 1) ＋ “”)
计次循环尾 ()
写文本行 (局_文件号, “  ”)
计次循环尾 ()
写文本行 (局_文件号, #超级列表框_导出xls_常量2 )
关闭文件 (局_文件号)
返回 (真)

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 超级列表框_导出xls, 逻辑型, 公开, 只适用于报表列表框<br /> .参数 保存文件, 文本型, , 保存路径<br /> .参数 列表框, 超级列表框, , 超级列表框对象<br /> .参数 是否保存表头, 逻辑型, , 为真保存，为假不保存<br /> .参数 报表标题, 文本型, 可空, 为空无标题，<br /> .局部变量 局_文件号, 整数型<br /> .局部变量 列数, 整数型<br /> .局部变量 表项数, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 p, 整数型<br /> <br /> 局_文件号 ＝ 打开文件 (保存文件, 4, 1)<br /> 表项数 ＝ 列表框.取表项数 ()<br /> 列数 ＝ 列表框.取列数 ()<br /> 移到文件首 (局_文件号)<br /> .如果真 (报表标题 ≠ “”)<br />     写文本行 (局_文件号, #超级列表框_导出xls_常量3)<br />     写文本行 (局_文件号, “  ”)<br />     写文本行 (局_文件号, “” ＋ 报表标题 ＋ “”)<br />     写文本行 (局_文件号, “  ”)<br />     写文本行 (局_文件号, #超级列表框_导出xls_常量2)<br /> .如果真结束<br /> 写文本行 (局_文件号, #超级列表框_导出xls_常量1)<br /> .如果真 (是否保存表头 ＝ 真)<br />     写文本行 (局_文件号, “  ”)<br />     .计次循环首 (列数, p)<br />         写文本行 (局_文件号, “    ” ＋ 列表框.取列标题 (p － 1) ＋ “”)<br />     .计次循环尾 ()<br />     写文本行 (局_文件号, “  ”)<br /> .如果真结束<br /> .计次循环首 (表项数, i)<br />     写文本行 (局_文件号, “  ”)<br />     .计次循环首 (列数, j)<br />         写文本行 (局_文件号, “    ” ＋ 列表框.取标题 (i － 1, j － 1) ＋ “”)<br />     .计次循环尾 ()<br />     写文本行 (局_文件号, “  ”)<br /> .计次循环尾 ()<br /> 写文本行 (局_文件号, #超级列表框_导出xls_常量2)<br /> 关闭文件 (局_文件号)<br /> 返回 (真)

大佬 ，这个是我现在用的导出，能再这个上面改吗

周小杰来也

数字前面加个 '  这个不影响读取

fksdehfk778

周小杰来也 发表于 2025-2-19 14:07
数字前面加个 '  这个不影响读取

这个我也测了，不行，导出的时候 表格里面也会有一个 ‘