关于VBA分组求和等问题，类似于透视表

ksharpbury

求助各位老师，现有表1，表2。
表1中有公司名称，企业类型，营业额三列；表2中有企业名称，信用额度，借款金额及所属地区。
想要的是经过几个步骤，最终得出每个地区的借款金额（sheet:目标），sheet1为我自己手工做的过程，没删掉，供参考，步骤如下：
1.将表1分组汇总得出每个公司的营业额，我是用透视表做的，现在想整个过程通过VBA实现；
2.将分组汇总后的表，通过公司名称，在表2中找到，分别返回信用额度，借款金额和所属地区；
3.筛选信用额度大于20000的数据;
4.通过分组汇总，得出每个地区的借款金额。

附件如下，多谢！

ksharpbury

朱荣兴 发表于 2018-6-27 12:52
若只计算每个地区的借款额，字典去重分类犬和，跟表1有啥关系呢？？？

这个是我自己写的例子，实际上表1和表2中并不是一一对应的。。

ivccav

按你的思路写了一个，完全符合你所要的思路。




模板.zip (14.86 KB, 下载次数: 15)

2018-6-27 13:42 上传

点击文件名下载附件

魂断蓝桥

SELECT 所属地区,sum(借款金额) from (select a.名称,a.营业额,b.信用额度,b.借款金额,b.所属地区 FROM (select 名称,SUM(营业额) as 营业额 FROM [表1$a1:c]  GROUP BY 名称) A  inner join [表2$a1:d] b on a.名称=b.名称 WHERE B.信用额度>=20000) group by 所属地区

ksharpbury

ivccav 发表于 2018-6-27 13:42
按你的思路写了一个，完全符合你所要的思路。

好的，我试一下，谢谢老师。

ksharpbury

魂断蓝桥 发表于 2018-6-27 13:44
SELECT 所属地区,sum(借款金额) from (select a.名称,a.营业额,b.信用额度,b.借款金额,b.所属地区 FROM (se ...

老师，初级的语句我还能看懂，但是这里的a.   b. 是怎么定义的？怎么确定表示哪个sheet页呢？

ksharpbury

ivccav 发表于 2018-6-27 13:42
按你的思路写了一个，完全符合你所要的思路。

老师，这里的select b.所属地区  还有a.XXX  a和b是怎么定义的？怎么确定表示哪一个sheet？

ivccav

ksharpbury 发表于 2018-6-27 15:45
老师，这里的select b.所属地区  还有a.XXX  a和b是怎么定义的？怎么确定表示哪一个sheet？

当两个以上表格join的时候，系统分不清字段是哪个表的，就需要指定别名方便引用。

[表2$] b就表示表2的别名为b，表1也是一样的道理，其别名是a。
语法：[表X$] 别名，注意表名和别名之间有空格

ksharpbury

ivccav 发表于 2018-6-27 15:58
当两个以上表格join的时候，系统分不清字段是哪个表的，就需要指定别名方便引用。

[表2$] b就表示表2 ...

1. Private Sub 汇总结果_Click()
   
2.     Set cnn = CreateObject("adodb.connection")
   
3.     cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;HDR=Yes';Data Source=" & ThisWorkbook.FullName
   
4.         strsql = "select b.客户名称,b.授信额度,sum(b.信贷余额_折人民币) from (select * from " & _
   
5.         "((select 客户名称,sum(贷款余额) as 贷款总余额 from [信贷余额表$] group by 客户名称) a left join [新一代授信客户表$] b on a.客户名称=b.客户名称) where b.授信额度>5000000) " & _
   
6.         "group by b.二级行名称"
   
7. Range("2:65536").ClearContents
   
8. Range("a2").CopyFromRecordset cnn.Execute(strsql, , 1)
   
9. End Sub
   

复制代码

老师请帮忙看一下哪里需要改可以吗？报错 运行时错误'-2147217887(8004e21)'  自动化(Automation)错误

引用ADODB确实一次都没见过，照猫画虎肯定有错误的地方，望指正。

两个表的列数都很多，表结构如图

表a：
表b：


谢谢！