|
以ado的方式打开excel后,如果导入1.xls则没有问题,如果导入2.xls则会报错。说至少一个参数没有被指定值,
求大神帮助,需要的附件已经打包
部分源码如下:
.版本 2
.支持库 spec
.支持库 ADODB2
.判断开始 (通用对话框1.打开 ())
取Excel文档表名 (通用对话框1.文件名, 表名数组)
调试输出 (表名数组)
.判断开始 (数据库连接对象.打开 (“Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=” + #引号 + “Excel 8.0” + “;IMEX=1” + #引号 + “;data source=” + 通用对话框1.文件名 + “;”, , , ))
' 信息框 (“成功”, 0, ) ' ;HDR=NO
.默认
信息框 (数据库连接对象.最后错误, 0, “1”)
.判断结束
.判断开始 (记录集对象.打开 (“select 供货单位,count(日期) as 车数,sum(原净重) as 原净重汇总,sum(净重) as 净重汇总,(sum(原净重)-sum(净重)) as 亏涨 from [” + 表名数组 [1] + “] group by 供货单位”, 数据库连接对象, 3, -1, 1))
' 游标类型为1是数据读取不完整
' 游标类型为2或0或-1时是取不出记录总数
.默认
信息框 (数据库连接对象.最后错误, 0, )
|
-
-
设计.rar
11.21 KB, 下载次数: 12, 下载积分: 精币 -2 枚
|