没有标题行的SQL查询

pjiang

''''''''''''''
Sub test()
       Dim cnn As Object, rs As Object, i&, SQL$
       Set cnn = CreateObject("ADODB.Connection")
       '创建链接，没有表头字段的链接写法
       cnn.Open "Provider = Microsoft.ace.Oledb.12.0;Extended Properties ='Excel 12.0;hdr=no';Data Source =" & ThisWorkbook.FullName
     'sql提取数据
       SQL = "select a.* from [sheet2$a1:m] a,[sheet1$a1:a] b where a.f11=b.f1 order by a.f11 asc"  '查询sheet2的K列=sheet1的A列
       Set rs = cnn.Execute(SQL)
       With Sheets("sheet3") '输出数据
          .Range("a1:M10000").ClearContents
          .Range("a1").CopyFromRecordset rs
       End With
       rs.Close
       cnn.Close
       Set rs = Nothing
       Set cnn = Nothing
End Sub

jiangxiaoyun

个人看法，在excel做SQL数据一定要搞靓仔点。

cai2532

这个我一直在找来学习。

WANT-T

祝“工作顺利，天天开心，好人一生平安，桃李满天下”