怎样突破SQL查询行数上限？

liufb203

我安装的是Excel2016版，写了一段代码查询数据。发现当我数据源总行数小于65535时运行正常，但是超过这个行数就会报错，不知道错误原因在哪？望大神指导。代码如下：

1. Sub 查询()
   
2.     Dim Rng&, T%, k%
   
3.     Dim cnn As Object
   
4.     Dim SQL$, Str$
   
5.     Set cnn = CreateObject("adodb.connection")
   
6.     cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;Hdr=No';Data Source=" & _
   
7.         ThisWorkbook.FullName
   
8.     Rng = ThisWorkbook.Sheets("财务数据").Range("A1").End(xlDown).Row
   
9.     k = Cells(7, 5)
   
10.     If Cells(8, 5).Value Like "所有" Then
    
11.         Str = ""
    
12.     Else
    
13.         Str = "where f43 like '" & Cells(8, 5).Value & "'"
    
14.     End If
    
15.     SQL = "transform sum(f" & k & ") select f1 from [财务数据$A2:BD" & Rng & "] " & Str & " group by f1 pivot f2"
    
16.     Range("D17").CopyFromRecordset cnn.Execute(SQL)
    
17. End Sub

复制代码

ezhou2020

是声明变量类型错误吗？

f8b1987

在Excel中使用SQL，如果限定了单元格的范围(不管是否动态扩展)，

则最多支持65536的最大行数。

即使Excel是07版以上支持100多万行。

如果不限定单元格的范围，则无此限制，支持的最大行数为Excel版本支持的最大行数。

rendiule01

换64位的OFFICE

liufb203

找到解决办法了：将数据源另存为一个Excel文件，这样可以突破65535的限制。唯一比较麻烦的是要么数据源只能跟查询文件放在一个文件夹内，要么就是数据源固定在一个位置。同时因为是多了一个文件，每次查询都要后台打开文件，运行速度上是个硬伤！

ohfoxx

为何不将Excel中的数据导入数据库中，再做查询呢