VBA 执行sql查询的时候发现数量错误 难道是重大的BUG

hdb1234

求助啊，
执行SQL查询可以正常通过，但是在字段“数量”统计时发现程序在每一个数量字段上加一。（查询的行数正确）
而且调用的源文件的数量栏和金额等的格式变成日期。

代码如下：

Sql2 = "select * from [借物$a1:ab65536] where 单位<>''and isnull(发票号) order by 销售员 asc"
Workbooks(Workbook_name_act).Worksheets(sheet_name_jw).Activate
Worksheets(sheet_name_jw).Range("a2").CopyFromRecordset CNN.Execute(Sql2)
CNN.Close
Set CNN = Nothing

oyzhjr

看下你粘贴到的数据表中是否存在以前的格式。

hdb1234

每次查询后源数据表格的数量和金额就变成日期格式了，改过来之后也不行！

hdb1234

连接字符换成2003版本就没问题了，
Dim Arr_ys, Arr_jw
Set CNN = CreateObject("ADODB.Connection")
'CNN.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & filenames 这个有问题
CNN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;HDR=Yes;IMEX=1';;Data Source=" & filenames 这个没问题了
奇怪啊！

lin_x

你把 'CNN.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & filenames  这句话改成
     'CNN.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=Yes;IMEX=1';Data Source=" & filenames  试试