转:SQL跨簿提取数据 - Qzone日志

来源:百度文库 编辑:神马文学网 时间:2024/04/29 12:17:23

转:SQL跨簿提取数据

  • 复制地址

    请用Ctrl+C复制后贴给好友。

  • 转载
  • 分享

小菜鸟 2010年06月26日 23:06 阅读(5) 评论(0) 分类:个人日记

  • 举报
  • 字体:大


当我们在用 ado+sql语句联接的时候,一般是联接一个工作簿中的一个或多个工作表,这个例子的数据采自于两个工作簿的两个数据表.

Sub yy2()
    Set cnn = CreateObject("adodb.connection")
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;hdr=yes;';Data Source=" & ThisWorkbook.Path & "\20081029.xls"
    With Sheets("20081029")
        r = .Range("a65536").End(xlUp).Row
        Sql = " select a.*,b.f2,b.f3 from [20081029$] a left join [Excel 8.0;IMEX=1;Database=" & ThisWorkbook.Path & "\发票种类的代码表.xls" & ";HDR=no].[sheet1$] b on a.发票种类=b.f1 "
        If r > 2 Then .Range("a2:h100").ClearContents
        .Range("a2").CopyFromRecordset cnn.Execute(Sql)
    End With
End Sub,