关于SQL连接多个工作簿的问题

xgy0214dxy

因工作上的需求，对软件里引出的数据作二次处理，因为数据体积太大，不想在一个工作簿里面操作，现在有个思路就是分二张工作簿，一张工作簿是操作项（1.XLSM），另一张是单纯存从软件里引出来数据(2.XLSX)，现在有个问题，就是在1.XLSM里有个条件表，对2.XLSX里的数据进行过滤后才升成数据，请老师指导多个工作簿连接问题

xgy0214dxy

不能沉哟，顶一下

xgy0214dxy

Sub test()
  Dim cnn As New ADODB.Connection
  Dim rs As New ADODB.Recordset
  Dim sql As String
  
  Dim mybook As String
  
  mybook = ThisWorkbook.FullName
  
  With cnn
    .Provider = "microsoft.jet.oledb.4.0"
    .ConnectionString = "extended properties=""excel 8.0;HDR=YES;"";data source=" & mybook
    .Open
  End With
  sql = "select b.船号,b.分段,b.工资 from [sheet1$a1:c] a left outer join [excel 8.0;database=" & ThisWorkbook.Path & "\rsgz.xls].[rsgz$a1:e] b on a.姓名=b.姓名 and a.编号=b.编号"
  rs.Open sql, cnn, adOpenKeyset, adLockOptimistic
  With Worksheets("sheet1")
    For i = 0 To rs.Fields.Count - 1
      .Cells(1, i + 4) = rs.Fields(i).Name
    Next
    .Range("d2").CopyFromRecordset rs
  End With
End Sub

xgy0214dxy

终于在坛子里看到这个代码了， 上面红色部分，请大神们细讲一下

xgy0214dxy

没人回答吗：-《

无尽的求知者

帮忙顶一下，也想知道答案

bastenyj

红色字表示两外一张工作簿的路径