excel 三表联合查询汇总问题

luojian0323

新人一枚，谁能帮我解决这个问题。感激不尽。
要求用VBA+SQL的方式 实现
请见附件

luojian0323

在线等……

opiona

1.     StrSQL = ""
   
2.     StrSQL = StrSQL & "SELECT 产品名称"
   
3.     StrSQL = StrSQL & ",SUM(到货数量) AS 到货总数"
   
4.     StrSQL = StrSQL & ",SUM(订单数量) AS 订单总数"
   
5.     StrSQL = StrSQL & ",SUM(退货数量) AS 退货总数"
   
6.     StrSQL = StrSQL & " FROM ("
   
7.    
   
8.     StrSQL = StrSQL & "SELECT 产品名称"
   
9.     StrSQL = StrSQL & ",到货数量"
   
10.     StrSQL = StrSQL & ",0 AS 订单数量"
    
11.     StrSQL = StrSQL & ",0 AS 退货数量"
    
12.     StrSQL = StrSQL & " FROM [" & SH0.Name & "$A2:B]"
    
13.     StrSQL = StrSQL & " UNION ALL "
    
14.     StrSQL = StrSQL & "SELECT 产品名称"
    
15.     StrSQL = StrSQL & ",0 AS 到货数量"
    
16.     StrSQL = StrSQL & ",订单数量"
    
17.     StrSQL = StrSQL & ",0 AS 退货数量"
    
18.     StrSQL = StrSQL & " FROM [" & SH0.Name & "$D2:E]"
    
19.     StrSQL = StrSQL & " UNION ALL "
    
20.     StrSQL = StrSQL & "SELECT 产品名称"
    
21.     StrSQL = StrSQL & ",0 AS 到货数量"
    
22.     StrSQL = StrSQL & ",0 AS 订单数量"
    
23.     StrSQL = StrSQL & ",退货数量"
    
24.     StrSQL = StrSQL & " FROM [" & SH0.Name & "$G2:H]"
    
25.     StrSQL = StrSQL & ") WHERE NOT 产品名称 IS NULL AND LEN(产品名称)>0"
    
26.     StrSQL = StrSQL & " GROUP BY 产品名称"

复制代码

opiona

QQ14885553.rar (21.9 KB, 下载次数: 32)

2018-7-20 07:57 上传

点击文件名下载附件

luojian0323

太牛了。太专业了。完美！！

luojian0323

opiona 发表于 2018-7-20 07:57

老师你好。请教一下，为什么您给我的这段代码拿到别的文件上就不能用了呀。提示自动化失败。

luojian0323

opiona 发表于 2018-7-20 07:57

可以再请教老师一下嘛？我现在在A表添加 了一个字段：颜色。如图，用了您之前写的代码发现不行。
union all 是把三个表数据合并，合并的结果放在了表的下方。而我要实现的结果 是下面这样的列合并。

产品名称  颜色  到货总数 订单总数 退货总数

luojian0323

图片上传不了

opiona

你把i所有出现：产品名称  地方，后面加一个：  ，颜色
上传图片 是：截图，另存为文件，上传附件，指向图片！

luojian0323

opiona 发表于 2018-7-24 13:34
你把i所有出现：产品名称  地方，后面加一个：  ，颜色
上传图片 是：截图，另存为文件，上传附件，指向图 ...

这个问题我已经解决了。谢谢。
我用了左连接。