这种形式的多表汇总SQL语句怎么写？（已解决，感谢simon_zhu老师）

onthetrip

将附件中的各分表汇总到“汇总表”中，请问怎样用SQL写代码？

[ 本帖最后由 onthetrip 于 2010-7-21 15:14 编辑 ]

onthetrip

自己顶一下。。。。

ericer

EXCEL ADO 不支持full outer join。我用VBA做的，楼主看一下

onthetrip

得顶一下了,沉得太深

onthetrip

再顶，论坛太火爆了。。。。。。。

onthetrip

我原以为可以用SQL搞定，看来不行。
谢谢你，我得好好消化一下你的代码

zpy2

SELECT 汇总表_sheet1.项目名称, 汇总表_sheet1.单位, 表1_sheet1.数量1, 表2_sheet1.数量2
FROM (汇总表_sheet1 LEFT JOIN 表1_sheet1 ON (汇总表_sheet1.单位 = Sheet1.单位) AND (汇总表_sheet1.项目名称 = 表1_sheet1.项目名称)) LEFT JOIN 表2_sheet1 ON (汇总表_sheet1.单位 = 表2_sheet1.单位) AND (汇总表_sheet1.项目名称 = 表2_sheet1.项目名称);

onthetrip

very sorry,我太菜,这段SQL应该怎么用在我的代码中呢?需要用OPEN语句打开三个工作簿吗,不过这样好像也不行。麻烦你给一个完整的代码

[ 本帖最后由 onthetrip 于 2010-6-9 20:24 编辑 ]

zpy2

代码你搜一下吧，我是手工把表复制到access里查询的。

Simon_Zhu

原帖由 onthetrip 于 2010-6-8 11:26 发表
我原以为可以用SQL搞定，看来不行。
谢谢你，我得好好消化一下你的代码

不要说不行啊，SQL可以的，就是麻烦一点。
5楼兄弟说的正确，EXCEL ADO 不支持full outer join，记得好像oracle 8i也是不支持full outer join的，碰到这种情况一般都是用Union + Join、Left Join之类的连接查询解决；
不过像你这样的表格格式，就算可以用full outer join，也不大可能一步到位的得到查询结果...

解决方法：
分 2 步走
1. 用Union 组织查询 得到 纵向合并的不重复的项目名称、单位
2. 用Left Join 连接查询 得到 横向合并的 且与项目名称、单位对应的数量

请测试下面的代码

1. Sub my_test()
   
2.     Dim iCol%, i%, j%, arr(), brr(), m%, n%
   
3.     Dim myPath$, myFiles$, Sql$, myField$
   
4.     Dim Conn As Object, rst As Object
   
5.     Application.ScreenUpdating = False
   
6.         myPath = ThisWorkbook.Path
   
7.         myFiles = Dir(myPath & "\*.xls")
   
8.             Set Conn = CreateObject("Adodb.Connection")
   
9.             Set rst = CreateObject("Adodb.Recordset")
   
10.                 Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;hdr=yes;';Data Source=" & ThisWorkbook.FullName
    
11.                     Sheet1.Cells.ClearContents
    
12.                     Do While myFiles <> ""
    
13.                         If myFiles <> ThisWorkbook.Name Then
    
14.                             ReDim Preserve arr(0 To m)
    
15.                             arr(m) = myFiles
    
16.                             m = m + 1
    
17.                         End If
    
18.                         myFiles = Dir
    
19.                     Loop
    
20.                     For i = 0 To UBound(arr)
    
21.                         Sql = "Select 项目名称,单位 from [Excel 8.0;DATABASE=" & myPath & "" & arr(i) & "].[Sheet1$]"
    
22.                         ReDim Preserve brr(0 To n)
    
23.                         brr(n) = Sql
    
24.                         n = n + 1
    
25.                     Next i
    
26.                     Sql = Join(brr, " Union ")
    
27.                     Sql = "Select  * from (" & Sql & ") Order by 项目名称"
    
28.                     Sheet1.Range("a2").CopyFromRecordset Conn.Execute(Sql)
    
29.                     Set rst = Conn.Execute(Sql)
    
30.                     Sheet1.Range("a1") = rst(0).Name
    
31.                     Sheet1.Range("b1") = rst(1).Name
    
32.                     rst.Close
    
33.                     For j = 0 To UBound(arr)
    
34.                         iCol = Sheet1.Range("iv1").End(xlToLeft).Column
    
35.                         myField = Application.ExecuteExcel4Macro("'" & myPath & "\[" & arr(j) & "]Sheet1'!r1c3")
    
36.                         Debug.Print myField
    
37.                         'Sql = "Select A." & myField & " from [Excel 8.0;DATABASE=" & myPath & "" & arr(j) & "].[Sheet1$] as A right Join [Sheet1$] as B on A.项目名称=B.项目名称 and A.单位=B.单位" 'Right Join 也可以，但不推荐。
    
38.                         Sql = "Select B." & myField & " from [Sheet1$] as A Left Join [Excel 8.0;DATABASE=" & myPath & "" & arr(j) & "].[Sheet1$] as B on A.项目名称=B.项目名称 and A.单位=B.单位"
    
39.                         Sheet1.Cells(1, iCol + 1) = myField
    
40.                         Sheet1.Cells(2, iCol + 1).CopyFromRecordset Conn.Execute(Sql)
    
41.                     Next j
    
42.                 Conn.Close
    
43.             Set rst = Nothing
    
44.             Set Conn = Nothing
    
45.     Application.ScreenUpdating = True
    
46. End Sub

复制代码

这个纯粹是为了交流学习SQL的使用方法，个人比较倾向与5楼兄弟的代码，简洁实用。
供参考