VBA SQL语句 from 指定工作簿的影响

Jack000001

各位大神好~

昨天我发了一个帖子，求助VBA+SQL获取特定工作簿特定工作表特定区域的值，但是返回的值总是缺少第一个。

根据各位大神的回复，我发现from 后面是否指定工作簿，会影响是否能取到第一行的值，如下：
源数据：


指定工作簿: 'Select * from [Excel 12.0;Database=" & ThisWorkbook.FullName & "].[data$e1:e10]         ''指定了工作簿[ThisWorkbook.FullName]，这种情况下获取不到e1的值：

1. Sub 指定工作簿()
   
2.     Dim cnn As Object
   
3.     Set cnn = CreateObject("ADODB.Connection")
   
4.     cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0 XML;HDR=NO';Data Source=" & ThisWorkbook.FullName
   
5.     Sheets("Sheet2").Range("a1").CopyFromRecordset cnn.Execute("Select * from [Excel 12.0;Database=" & ThisWorkbook.FullName & "].[data$e1:e10]")
   
6.     Set cnn = Nothing
   
7. End Sub

复制代码

执行结果：







不指定工作簿: 'Select * from [data$e1:e10]         ''没有指定工作簿，这种情况下获取e1的值：

1. Sub 不指定工作簿()
   
2.     Dim cnn As Object
   
3.     Set cnn = CreateObject("ADODB.Connection")
   
4.     cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0 XML;HDR=NO';Data Source=" & ThisWorkbook.FullName
   
5.     Sheets("Sheet2").Range("a1").CopyFromRecordset cnn.Execute("Select * from [data$e1:e10]")
   
6.     Set cnn = Nothing
   
7. End Sub

复制代码

执行结果：


我查了很多，没有找到原因，在此求助大神~~~

fxl447098457

这很简单啊。[Excel 12.0;HDR=NO;Database=" & ThisWorkbook.FullName & "]

洋务德雷

主要是你的数据结构不对。不要纠结这个问题了。