SQL取excel固定区域数据对区域有限制吗?

scarlettfang

如附件，如图，两个宏的区别只是选择的SQL区域不同，第一个宏可以正常运行，第二个宏就报错找不到对象，请问是什么原因呢？是SQL取excel固定区域数据对区域有限制吗？

第一句：SQL = "select * from [" & ThisWorkbook.Path & "\" & ThisWorkbook.Name & "].[Order$A1:B118]"
第二句：SQL = "select * from [" & ThisWorkbook.Path & "\" & ThisWorkbook.Name & "].[Order$A78901:B79018]"

wodewan

1. 这个好像是个BUG，自链接指定区域的话限制在65536内，若自链接不指定区域不受限制。
2. 如果数据源放别的工作簿，就可以指定区域，也没有行数这个限制。

cui26896

Sub TEST2()
Dim cnn As New ADODB.Connection
Dim SQL As String
Dim a As Long

cnn.Open "Provider=Microsoft.Ace.oledb.12.0;Extended Properties='Excel 12.0;HDR=yes;IMEX=0';Data Source=" & ThisWorkbook.FullName
            
SQL = "select * from [Order$h16:i]"
cnn.CursorLocation = 3
Set rst = cnn.Execute(SQL)
For a = 0 To rst.Fields.Count - 1
    Sheets(2).Cells(1, a + 10) = rst.Fields(a).Name
Next
Sheets(2).Range("J2").CopyFromRecordset rst
rst.Close
cnn.Close
Set rst = Nothing
Set cnn = Nothing
End Sub

很奇特的现象，用A78901:B，d78901:B都不行，但d1:e，h16:i, d7:e全能通过。也就是不能在原有数据区的下方，必须在其右侧都可以。

EXCELLMY

cui26896 发表于 2020-1-23 15:16
Sub TEST2()
Dim cnn As New ADODB.Connection
Dim SQL As String

改变一下思路吧，同薄用数组字典，跨薄用ADO

cui26896

EXCELLMY 发表于 2020-1-23 21:30
改变一下思路吧，同薄用数组字典，跨薄用ADO

张刚老师在早期的多个帖中多次总结过这个原则了。同簿无非是简化看一看ADO，各种不同情况，类型罢了。

EXCELLMY

cui26896 发表于 2020-1-24 13:24
张刚老师在早期的多个帖中多次总结过这个原则了。同簿无非是简化看一看ADO，各种不同情况，类型罢了。

不是张刚老师，是赵老师，亲