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

onthetrip · 发表于 2010-6-7 17:18

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

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

onthetrip · 发表于 2010-6-7 18:05

自己顶一下。。。。

ericer · 发表于 2010-6-8 11:12

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

onthetrip · 发表于 2010-6-8 08:43

得顶一下了,沉得太深

onthetrip · 发表于 2010-6-8 10:11

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

onthetrip · 发表于 2010-6-8 11:26

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

zpy2 · 发表于 2010-6-8 22:48

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 · 发表于 2010-6-9 20:12

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

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

zpy2 · 发表于 2010-6-10 22:04

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

Simon_Zhu · 发表于 2010-7-21 14:15

原帖由 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 连接查询得到横向合并的且与项目名称、单位对应的数量

请测试下面的代码

Sub my_test()
Dim iCol%, i%, j%, arr(), brr(), m%, n%
Dim myPath$, myFiles$, Sql$, myField$
Dim Conn As Object, rst As Object
Application.ScreenUpdating = False
myPath = ThisWorkbook.Path
myFiles = Dir(myPath & "\*.xls")
Set Conn = CreateObject("Adodb.Connection")
Set rst = CreateObject("Adodb.Recordset")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;hdr=yes;';Data Source=" & ThisWorkbook.FullName
Sheet1.Cells.ClearContents
Do While myFiles <> ""
If myFiles <> ThisWorkbook.Name Then
ReDim Preserve arr(0 To m)
arr(m) = myFiles
m = m + 1
End If
myFiles = Dir
Loop
For i = 0 To UBound(arr)
Sql = "Select 项目名称,单位 from [Excel 8.0;DATABASE=" & myPath & "" & arr(i) & "].[Sheet1$]"
ReDim Preserve brr(0 To n)
brr(n) = Sql
n = n + 1
Next i
Sql = Join(brr, " Union ")
Sql = "Select * from (" & Sql & ") Order by 项目名称"
Sheet1.Range("a2").CopyFromRecordset Conn.Execute(Sql)
Set rst = Conn.Execute(Sql)
Sheet1.Range("a1") = rst(0).Name
Sheet1.Range("b1") = rst(1).Name
rst.Close
For j = 0 To UBound(arr)
iCol = Sheet1.Range("iv1").End(xlToLeft).Column
myField = Application.ExecuteExcel4Macro("'" & myPath & "\[" & arr(j) & "]Sheet1'!r1c3")
Debug.Print myField
'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 也可以，但不推荐。
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.单位"
Sheet1.Cells(1, iCol + 1) = myField
Sheet1.Cells(2, iCol + 1).CopyFromRecordset Conn.Execute(Sql)
Next j
Conn.Close
Set rst = Nothing
Set Conn = Nothing
Application.ScreenUpdating = True
End Sub

复制代码

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

		自动登录	找回密码
密码			免费注册

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

回复 5楼 ericer 的帖子

回复 7楼 zpy2 的帖子