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，第一行数据仍然会被视为表头而忽略。这个问题出在哪里，怎么解决？

【扩展问题】
如果把
strCnn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=NO;IMEX=1';Data source=" & ThisWorkbook.FullName
中的数据源改为data source=Filepath1

结果也是一样。

ly

select * from....
*表示表所有字段，也就是第一行的名称。相当于select 张三,男,36 from....
虽然你认为第一行是记录，但是计算机不知道。

marco

strSQL = "select * from [" & FilePath1 & "].[sheet1$A1:c3] Union All select * from [" & FilePath2 & "].[sheet1$A1:c3]" 这句改一下

strSQL = "select * from [" & FilePath1 & ";extended properties='Excel 12.0;HDR=no;IMEX=1'].[sheet1$A1:c3] Union All select * from [" & FilePath2 & ";extended properties='Excel 12.0;HDR=no;IMEX=1'].[sheet1$A1:c3]"