EXCEl 使用SQL 语句查询数据限制问题

skywen_2004

EXCEl 使用SQL 语句查询数据时发现，当引用源数据量超过 70000条时 就提示找不到数据源。
如 这样就可以执行
    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName

'---------------------------------------   设置SQL语句  ------------------- ------------------- -------------------

  SQL = "select TOP 100 * from  [库存$A1:K60000] "
  
如果改成 80000就提示错误
    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName

'---------------------------------------   设置SQL语句  ------------------- ------------------- -------------------

  SQL = "select TOP 100 * from  [库存$A1:K80000] "
  请问题该种限制是Excel的限制还是 我预计的问题？

详细语句如下：
Sub SQL_Excel_2003_2007()

'On Error Resume Next       '如果出现错误，忽略，然后执行下一行代码。
Application.ScreenUpdating = False '关闭屏幕刷新,成对出现，提高速度
Application.DisplayAlerts = False '关闭提示，,成对出现，避免出现提示框

'---------------------------------------   参数声明部分  ------------------- ------------------- -------------------

    Dim cnn, SQL$   '定义数据库连接和SQL语句
    Set cnn = CreateObject("adodb.connection")  '创建数据库连接
    Set rs = CreateObject("adodb.recordset")   '创建一个数据集保存数据
   
'---------------------------------------   设置数据库连接  ------------------- ------------------- -------------------

    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName

'---------------------------------------   设置SQL语句  ------------------- ------------------- -------------------

  SQL = "select TOP 100 * from  [库存$A1:K80000] "
  
   'Sheets("结果").Cells.ClearContents       '清理保存数据的区域
   Sheets("选片结果").Range("a2").CopyFromRecordset rs    '将数据集粘贴到Excel中，左上角为A2，无列名。
   'Sheets("结果").Range("b2").CopyFromRecordset cnn.Execute(SQL)  '可以不声明Y，直接使用

   cnn.Close     '关闭数据库连接
   Set cnn = Nothing    '将CNN从内存中删除。
'--------------------------------------- ------------------------ ------------------- -------------------
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub   '这就是最简单的EXCEL中SQL的应用 ，其他的都是SQL的运用了

LMY123

上附件吧，看你的代码是同薄查询

vbee

支持65536............

skywen_2004

vbee 发表于 2018-8-7 16:17
支持65536............

请问 有没有其他的办法能多支持点数据呢？
是不是的我控件比较老了？

vbee

上ACCESS吧，估计是MS的产品区分

LMY123

skywen_2004 发表于 2018-8-7 16:22
请问 有没有其他的办法能多支持点数据呢？
是不是的我控件比较老了？

同薄查询，ADO不一定是最好的选择

wdx223

http://club.excelhome.net/thread-727841-1-1.html
这个帖子可以看看
试试

1. SQL = "select TOP 100 * from  [库存$] "

复制代码

opiona

A1：k70000  去掉试试

skywen_2004

wdx223 发表于 2018-8-7 16:31
http://club.excelhome.net/thread-727841-1-1.html
这个帖子可以看看
试试

非常感谢，原来是BUG...

skywen_2004

opiona 发表于 2018-8-8 08:40
A1：k70000  去掉试试

非常感谢,问题解决了就是去掉它，原来是BUG...