使用范围超出65536行的Excel 2013中的问题

我正试图在Excel 2013工作簿中的命名范围上执行ADODB查询。

我的代码如下：

Option Explicit Sub SQL_Extract() Dim objConnection As ADODB.Connection Dim objRecordset As ADODB.Recordset Set objConnection = CreateObject("ADODB.Connection") ' dataset query object Set objRecordset = CreateObject("ADODB.Recordset") ' new dataset created by the query objConnection.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & _ "Data Source=" & ThisWorkbook.FullName & ";" & _ "Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1"";" objConnection.Open objRecordset.Open "SELECT * FROM [HighRange]", objConnection, adOpenStatic, adLockOptimistic, adCmdText If Not objRecordset.EOF Then ActiveSheet.Cells(1, 1).CopyFromRecordset objRecordset End If objRecordset.Close objConnection.Close End Sub 

如果范围HighRange超出行65536（例如A65527：B65537），则会收到错误消息

如果我删除了足够多的行以删除65536行之下的范围，代码将起作用。

如果我强制工作簿是只读的（并确保没有其他人打开非只读版本），代码也可以工作。

这是我做错了什么，或者这是Excel 2013中的错误？

（问题存在于32位和64位版本中，在Excel 2016中也存在）

Answer 1

我一直无法find我的问题的实际答案，所以最好的解决办法是创build一个额外的工作簿，将我的范围复制到工作簿中的工作表（从单元格A1开始），保存该工作簿，然后使用该工作簿/工作表作为查询的来源。

（我原本以为我可以逃脱只是在现有的工作簿中创build一个临时工作表，即不创build临时工作簿，但是如果用户有两个活动的Excel实例发生问题 – Connection.Open事件重新打开工作簿Excel的第一个实例，即使我们在第二个实例中运行macros，因此重新打开的工作簿中没有虚拟工作表，而且我不想保存现有工作簿的副本一个虚拟表单）

 Sub SQL_Extract_Fudged() Dim objConnection As ADODB.Connection Dim objRecordset As ADODB.Recordset Dim wsOrig As Worksheet Dim wbTemp As Workbook Dim wbTempName As String Dim wsTemp As Worksheet Set wsOrig = ActiveSheet 'Generate a filename for the temporary workbook wbTempName = Environ$("TEMP") & "\TempADODBFudge_" & Format(Now(), "yyyymmdd_hhmmss") & ".xlsx" 'Create temporary workbook Set wbTemp = Workbooks.Add 'Use first sheet as the place for the temporary copy of the range we want to use Set wsTemp = wbTemp.Worksheets(1) wsTemp.Name = "TempADODBFudge" 'Copy the query range to the temporary worksheet wsOrig.Range("HighRange").Copy Destination:=wsTemp.Range("A1") 'Save and close the temporary workbook wbTemp.SaveAs wbTempName wbTemp.Close False 'Get rid of references to the temporary workbook Set wsTemp = Nothing Set wbTemp = Nothing 'Create connection and recordset objects Set objConnection = CreateObject("ADODB.Connection") Set objRecordset = CreateObject("ADODB.Recordset") 'Create the connection string pointing to the temporary workbook objConnection.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & _ "Data Source=" & wbTempName & ";" & _ "Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1"";" objConnection.Open 'Perform the query against the entire temporary worksheet objRecordset.Open "SELECT * FROM [TempADODBFudge$]", objConnection, adOpenStatic, adLockOptimistic, adCmdText 'Copy output (for this example I am just copying back to the original sheet) If Not objRecordset.EOF Then wsOrig.Cells(1, 1).CopyFromRecordset objRecordset End If 'Close connections objRecordset.Close objConnection.Close 'Get rid of temporary workbook On Error Resume Next Kill wbTempName On Error GoTo 0 End Sub 

我仍然希望更强大的解决scheme来解决这个问题，所以会喜欢别人提出另一个答案。