SQL跨工作簿查找数据

xd3210

上传附件方便调试

yzxfelix

microyip 发表于 2016-12-10 08:24
把imex参数去掉，让它默认参数就OK啦

HDR=yes;imex=2;

老师啊，这两分别啥意思啊

yzxfelix

microyip 发表于 2016-12-10 08:24
把imex参数去掉，让它默认参数就OK啦

HDR=yes   imex=2

老师啊，这两分别啥意思啊

microyip

HDR=yes 首行是标题  
imex=2 允许指定区域

yzxfelix

怪怪的，按楼主的感觉还是不能运行

ning84

在学习一遍SQL的基本知识。

1. Sub ll()
   
2.    Dim Cn As ADODB.Connection
   
3.    Dim Rs As ADODB.Recordset
   
4.    Dim SqlStr, Arr
   
5.        Set Cn = New ADODB.Connection
   
6.        Set Rs = New ADODB.Recordset
   
7.         Set Cn = New ADODB.Connection
   
8.         Set Rs = New ADODB.Recordset
   
9.         Cn.Open "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName
   
10.         SqlStr = "Select Distinct  * From [Sheet1$c:c]"
    
11.         Set Rs = Cn.Execute(SqlStr)
    
12.         Debug.Print Rs.RecordCount, ThisWorkbook.FullName
    
13.         Arr = Rs.GetRows
    
14.         Stop
    
15. End Sub
    

复制代码