SQL实现筛选拷贝，为什么拷贝不全？

nyscsc

向老师求助：仿照做的SQL筛选拷贝，但只能拷贝出四万多条数据，拷贝不全是什么原因？  excel刚打开运行会报错，另存下就可以，搞不明白！求助各位大侠

nyscsc

方便大家查看，贴出代码：
Sub SQL方法筛选数据()
Dim Sql$, Cnn
Set Cnn = CreateObject("adodb.Connection")
Cnn.Open "Provider=Microsoft.jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName
Sql = "select 产品ID,所在仓库,产品名称,产品编码,库位 from [库存表$A:E] where 所在仓库  in('仓库01','仓库11')"
Range("M2").CopyFromRecordset Cnn.Execute(Sql)
Cnn.Close
Set Cnn = Nothing
End Sub

'Cnn.Open "Provider=Microsoft.jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName
上面语句更换成下面的，还是拷贝不全，只把65536内的筛选拷贝
Cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=Yes;';Data Source=" & ThisWorkbook.FullName

百度不到去谷歌

sql对数据不标准的情况 出错在所难免 主要是数值和文本格式混合的列 或者空行多的列 容易出现错误 因为e本身就不是标准数据格式

nyscsc

百度不到去谷歌 发表于 2017-1-22 23:38
sql对数据不标准的情况 出错在所难免 主要是数值和文本格式混合的列 或者空行多的列 容易出现错误 因为e本 ...

先谢谢回复。
感觉是sql的设置问题，或语句问题，因为它筛选的正好是65536行以内的，并且是准确的，65536行以外的一个没筛。

解释一下，空列是上传附件超限，把部分数据清空了

lsc900707

搜索引擎不对，07以上版本要用
Cnn.Open "Provider=Microsoft.ace.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName

nyscsc

lsc900707 发表于 2017-1-23 08:20
搜索引擎不对，07以上版本要用
Cnn.Open "Provider=Microsoft.ace.OLEDB.12.0;Extended Properties=Excel  ...

更换语句后，仍然复制出的数据在65536条内，求助？

魂断蓝桥

Sql = "select 产品ID,所在仓库,产品名称,产品编码,库位 from [库存表$] where 所在仓库  in('仓库01','仓库11')"

lsc900707

nyscsc 发表于 2017-1-23 08:28
更换语句后，仍然复制出的数据在65536条内，求助？

Sql = "select 产品ID,所在仓库,产品名称,产品编码,库位 from [库存表$] where 所在仓库  in('仓库01','仓库11')"

yeminqiang

我比较赞同3楼老师的建议,不规范的数据用sql难免会有一些问题.

lsc900707

nyscsc 发表于 2017-1-22 20:24
方便大家查看，贴出代码：
Sub SQL方法筛选数据()
Dim Sql$, Cnn

建议结果写在其它工作表：
Sub lsc()
Dim conn As Object, sql$, r As Long
With Sheets("Sheet2")
    r = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
    Set conn = CreateObject("adodb.connection")
        conn.Open "provider=Microsoft.ACE.OLEDB.12.0;extended properties='excel 12.0;hdr=yes;imex=1';data source=" & ThisWorkbook.FullName
   sql = "select 产品ID,所在仓库,产品名称,产品编码,库位 from [库存表$] where 所在仓库  in('仓库01','仓库11')"
    .Cells(r, 1).CopyFromRecordset conn.Execute(sql)
End With
conn.Close
Set conn = Nothing
End Sub