使用数据库加载excel，单元格格式的问题

圆圈

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
连接文本	文本型
文件地址	文本型
SQL语句	文本型
循环次数	整数型
循环计次	整数型
文本变量	文本型
表项索引	整数型
循环计次2	整数型

文件地址 ＝ 取运行目录 () ＋ “\1.xlsx”
如果 (数据库连接.连接 (“Provider=Microsoft.ACE.OLEDB.12.0;Data Source=” ＋ 文件地址 ＋ “;Extended Properties='Excel 12.0 Xml;HDR=YES';”) ＝ 真)
输出调试文本 (“链接成功！”)
如果真 (记录集.置连接 (数据库连接) ＝ 假)
返回 ()
SQL语句 ＝ “select * from [Sheet1$]”
记录集.打开 (SQL语句, #SQL语句 )
循环次数 ＝ 记录集.记录数量
超级列表框1.全部删除 ()
计次循环首 (超级列表框1.取列数 (), )
超级列表框1.删除列 (0)
计次循环尾 ()
计次循环首 (记录集.字段数量, 循环计次)
超级列表框1.插入列 (, 记录集.取字段名 (循环计次 － 1), , , , )
计次循环尾 ()
计次循环首 (循环次数, 循环计次)
表项索引 ＝ 超级列表框1.插入表项 (, , , , , )
计次循环首 (记录集.字段数量, 循环计次2)
记录集.读文本 (循环计次2 － 1, 文本变量)
超级列表框1.置标题 (表项索引, 循环计次2 － 1, 文本变量)
计次循环尾 ()
记录集.到下一条 ()
计次循环尾 ()
输出调试文本 (“读入并显示成功！”)
输出调试文本 (数据库连接.最后错误)
记录集.关闭 ()
数据库连接.关闭 ()

i支持库列表	支持库注释
eDB	数据库操作支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 eDB<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集1<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 连接文本, 文本型<br /> .局部变量 文件地址, 文本型<br /> .局部变量 SQL语句, 文本型<br /> .局部变量 循环次数, 整数型<br /> .局部变量 循环计次, 整数型<br /> .局部变量 文本变量, 文本型<br /> .局部变量 表项索引, 整数型<br /> .局部变量 循环计次2, 整数型<br /> <br /> 文件地址 ＝ 取运行目录 () ＋ “\1.xlsx”<br /> .如果 (数据库连接.连接 (“Provider=Microsoft.ACE.OLEDB.12.0;Data Source=” ＋ 文件地址 ＋ “;Extended Properties='Excel 12.0 Xml;HDR=YES';”) ＝ 真)<br />     输出调试文本 (“链接成功！”)<br />     .如果真 (记录集.置连接 (数据库连接) ＝ 假)<br />         返回 ()<br />     .如果真结束<br />     SQL语句 ＝ “select * from [Sheet1$]”<br />     记录集.打开 (SQL语句, #SQL语句)<br />     循环次数 ＝ 记录集.记录数量<br />     超级列表框1.全部删除 ()<br />     .计次循环首 (超级列表框1.取列数 (), )<br />         超级列表框1.删除列 (0)<br />     .计次循环尾 ()<br />     .计次循环首 (记录集.字段数量, 循环计次)<br />         超级列表框1.插入列 (, 记录集.取字段名 (循环计次 － 1), , , , )<br />     .计次循环尾 ()<br />     .计次循环首 (循环次数, 循环计次)<br />         表项索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />         .计次循环首 (记录集.字段数量, 循环计次2)<br />             记录集.读文本 (循环计次2 － 1, 文本变量)<br />             超级列表框1.置标题 (表项索引, 循环计次2 － 1, 文本变量)<br />         .计次循环尾 ()<br />         记录集.到下一条 ()<br />     .计次循环尾 ()<br />     输出调试文本 (“读入并显示成功！”)<br /> .否则<br />     输出调试文本 (数据库连接.最后错误)<br /> <br /> .如果结束<br /> 记录集.关闭 ()<br /> 数据库连接.关闭 ()

使用数据库加载excel文件，数字单元格格式会增加很多个0

需要把excel文件重新设置单元格格式，这很麻烦，麻烦大神解决一下

sinewtec

记录集.读整数

花间一壶酒

先把EXCEL单元格格式全部设置成常规 或者文本型  再读

补充内容 (2023-9-19 11:39):
可以直接在软件里写个自动改单元格格式啊