用SQL汇总或合并工作表、工作簿和跨文件夹和工作表汇总

ywen74 · 发表于 2016-4-27 22:20

学习了，汇总的方法好几种，不知道那种快？

ywen74 · 发表于 2016-4-28 22:51

问题：用了你的汇总代码，但是不会改。

我想只是汇总工作薄中部分工作表的数据，并且指定范围，请问如何改代码，谢谢。具体见附件

opiona · 发表于 2016-4-29 07:30

你是银河期货的吧！？

Set SH0 = Sheets("汇总")
Set SH1 = Sheets("分析")
SH0.Range("E4:I1048576").ClearContents '//清空保存区域，全部数据第一行是标题行，且只占一行，无合并单元格
Str_coon = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=yes';data source=" & ThisWorkbook.FullName '//Excel2007
StrSQL = ""
For Each SH In ThisWorkbook.Worksheets
If SH.Name <> SH0.Name And SH.Name <> SH1.Name Then
Rem 居间人应发佣金营业税城建税教育附加个人所得税
If StrSQL <> "" Then StrSQL = StrSQL & " UNION ALL "
StrSQL = StrSQL & "SELECT 居间人,应发佣金,营业税,城建税,教育附加 FROM [" & SH.Name & "$D2:I] WHERE LEN(居间人)>0" '//SQL语句自己发挥吧，这里是精髓。
End If
Next SH
StrSQL1 = "SELECT 居间人,SUM(应发佣金),SUM(营业税),SUM(城建税),SUM(教育附加) FROM (" & StrSQL & ") GROUP BY 居间人 ORDER BY 居间人"
Crr = GET_SQLCoon(StrSQL1, Str_coon, False)
SH0.Range("E4").Resize(UBound(Crr, 1) + 1, UBound(Crr, 2) + 1) = Crr '//粘贴查询结果

复制代码

opiona · 发表于 2016-4-29 07:31

除了：汇总和分析表的其他全部表格：分类汇总求和！

ywen74 · 发表于 2016-4-30 12:46

opiona 发表于 2016-4-29 07:31
除了：汇总和分析表的其他全部表格：分类汇总求和！

不好意思，我表达错了，是汇总分表的数据，不是合并计算，具体见修改过后的附件。谢谢。

opiona · 发表于 2016-4-30 21:22

Timelwell · 发表于 2016-5-21 01:43

下面的两个表汇总时为什么有很多空行?

Thanks

yunkongming · 发表于 2016-6-1 11:19

opiona 发表于 2014-12-3 22:46
汇总方式3：

多个工作簿在文件夹和子文件夹内，

大师:
如果要把来自工作薄这列放在最后面,怎样代码 ?

opiona · 发表于 2016-6-1 11:52

yunkongming 发表于 2016-6-1 11:19
大师:
如果要把来自工作薄这列放在最后面,怎样代码 ?

19.StrSQL = "SELECT 居间人,应发佣金,营业税,城建税,教育附加,'" & GetPathFromFileName(ARR(I), False) & "' AS 来自工作簿 FROM [" & SHName & "$]" '//SQL语句自己发挥吧

复制代码

上面的代码，工作簿名就在最后！

yunkongming · 发表于 2016-6-1 12:31

opiona 发表于 2016-6-1 11:52
上面的代码，工作簿名就在最后！

大师:
先谢了,?

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

[分享] 用SQL汇总或合并工作表、工作簿和跨文件夹和工作表汇总