急：对我很难对高手可能很简单的多表数据合并问题

caqdhwjw

10楼的高手，非常感谢，是这样的

doitbest

简单是美的，学习了！

7786910

Sub Macro1()
    Dim cnn As Object, SQL$
    Set cnn = CreateObject("Adodb.Connection")
    On Error Resume Next
    cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
    SQL = "select a.*,b.区位 from [1$] a inner join [2$] b on a.品名=b.品名 and a.规格=b.规格"
    [a1].CurrentRegion.Offset(1).ClearContents
    [a2].CopyFromRecordset cnn.Execute(SQL)
    cnn.Close
    Set cnn = Nothing
End Sub

wfx115

没看懂。没看懂。没看懂。没看懂。没看懂。