VBA SQL 跨工作簿查询时的首行数据丢失

rhzwan123

现有三个excel工作表，分别为,
1、当前工作簿为    D:\N.xls
2、要查询文件的1  D:\1.xls
2、要查询文件的2  D:\2.xls
【已知】
当前excel版本为2010，而且
1.xls的sheet1的[A1:C3]内容为
|张三|男|36|
|李四|男|35|
|赵一|女|25|
2.xls的sheet1的[A1:C3]内容为
|胡六|男|37|
|季七|男|45|
|丁十|女|35|

【要求】利用SQL方法，把1.xls的sheet1的[a1:c3]、2.xls的sheet1的[a1:c3]，通过Union查询，存放到当前工作簿中，(vba代码在D:\N.xls中)
【代码如下】

1. Option Explicit
   
2. Sub Test()
   
3. Dim Cnn As Object, Rst As Object
   
4. Dim strCnn$, strSQL$, FilePath1$, FilePath2$
   
5. FilePath1$ = ThisWorkbook.Path & "\1.xls"
   
6. FilePath2$ = ThisWorkbook.Path & "\2.xls"
   
7. Set Cnn = CreateObject("adodb.connection")
   
8. Set Rst = CreateObject("adodb.recordset")
   
9. strCnn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=NO;IMEX=1';Data source=" & ThisWorkbook.FullName
   
10. Cnn.Open strCnn
    
11. 
    
12. strSQL = "select * from [" & FilePath1 & "].[sheet1$A1:c3] Union All select * from [" & FilePath2 & "].[sheet1$A1:c3]"
    
13. Set Rst = Cnn.Execute(strSQL)
    
14. With Sheets("sheet1")
    
15.     .Range("a1").CurrentRegion.ClearContents
    
16.     .Range("A1").CopyFromRecordset Rst
    
17. End With
    
18. Rst.Close
    
19. Cnn.Close
    
20. Set Rst = Nothing
    
21. Set Cnn = Nothing
    
22. End Sub
    

复制代码

【结果如下】

李四	男	35
赵一	女	25
季七	男	45
丁十	女	35

【问题】
跨工作簿查询时，如果被查询的工作表无表头，即使设置HDR=NO，第一行数据仍然会被视为表头而忽略。这个问题出在哪里，怎么解决？

gdzrh917

发现的问题，是你的数据源Data source是本身的工作簿，但实际上是查询另外2个工作簿，因为默认都是有标题。猜测，当你打开另外2个的时候，默认有标题，所以无法查询到所有数据。目前我能提供的方法是，一个一个来查询。能力有限。

zpy2

2楼说的有道理，file1=Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=NO;IMEX=1';Data source=" & file1
放到sql里也许可以，能力有限。。。。

rhzwan123

gdzrh917 发表于 2019-3-13 23:35
发现的问题，是你的数据源Data source是本身的工作簿，但实际上是查询另外2个工作簿，因为默认都是有标题。 ...

但即使改Data source=filepath1
而在sql语句中写成：
"select * from [" & FilePath1 & "].[sheet1$A1:c3] Union All select * from [" & FilePath2 & "].[sheet1$A1:c3]"
结果依然如上

rhzwan123

zpy2 发表于 2019-3-14 06:51
2楼说的有道理，file1=Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=NO;IMEX=1 ...

改了，不行

gdzrh917

对啊，我的意思就是这样，所以你得分开来查询，最后再把数据合并，而无法一步到位。

rhzwan123

gdzrh917 发表于 2019-3-14 12:59
对啊，我的意思就是这样，所以你得分开来查询，最后再把数据合并，而无法一步到位。

终于找了了一步到位的方法：在SQL语句中添加HDR语句，可以实现

gdzrh917

rhzwan123 发表于 2019-3-14 13:59
终于找了了一步到位的方法：在SQL语句中添加HDR语句，可以实现

能告知方法吗？学习下