把两个表格中的数据合并在一张表格中

mazeboy

求助:
如附件,如何把两个表格中的数据,按订单号,合并在一个表格中
两个表格中的,订单号相同的.其它数据不一样.

jpj123

多表合并的例子论坛中很多，自己搜索一下，照猫画虎!

daphy123

1. Sub test()
   
2. Dim p$, f$, sql$
   
3.   Set cnn = CreateObject("ADODB.connection")
   
4.   p = ThisWorkbook.Path
   
5.   If Right(p, 1) <> "" Then p = p & ""
   
6.    
   
7.   If Application.Version = "11.0" Then
   
8.       f = "B表.xls"
   
9.       cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & p & f
   
10.       sql = "select a.*,b.单价,b.款式 from [Excel 8.0;Database=" & ThisWorkbook.FullName & "].[A表$a1:e65536] a left join [B表$] b on a.订单编号=b.订单编号"
    
11. 
    
12.     Else
    
13.        f = "B表.xlsx"
    
14.       cnn.Open "provider=microsoft.ace.oledb.12.0;extended properties=excel 12.0;data source=" & p & f
    
15.        sql = "select a.*,b.单价,b.款式 from [Excel 12.0;Database=" & ThisWorkbook.FullName & "].[A表$a1:e65536] a left join [B表$] b on a.订单编号=b.订单编号"
    
16. 
    
17.   End If
    
18.   
    
19.   With Worksheets(1)
    
20.     .Cells.ClearContents
    
21.     .[a2].CopyFromRecordset cnn.Execute(sql)
    
22.   End With
    
23. End Sub
    

复制代码

daphy123

涉及到两个工作薄sql的问题

x8515171

赞一个，学习了，谢谢。

mazeboy

jpj123 发表于 2015-4-14 20:02
多表合并的例子论坛中很多，自己搜索一下，照猫画虎!

恩，好的，多多学习，多多参照

mazeboy

daphy123 发表于 2015-4-14 21:17
涉及到两个工作薄sql的问题

谢谢你的耐心解答，感谢，根据你的方式，我的问题得到了解决，感谢。。。。

LMY123

sql = "select a.*,b.单价,b.款式 from [Excel 8.0;Database=" & ThisWorkbook.FullName & "].[A表$a1:e65536] a left join [B表$] b on a.订单编号=b.订单编号"