|
变量名 | 类 型 | 静态 | 数组 | 备 注 | 连接文本 | 文本型 | | | 文件地址 | 文本型 | | | 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, 文本变量 )计次循环尾 ()记录集. 到下一条 ()计次循环尾 ()输出调试文本 (“读入并显示成功!”)输出调试文本 (数据库连接.最后错误 )记录集.关闭 ()数据库连接. 关闭 ()
使用数据库加载excel文件,数字单元格格式会增加很多个0
需要把excel文件重新设置单元格格式,这很麻烦,麻烦大神解决一下
|
|