大家好，我们继续VBA数据库解决方案的学习，今天讲解第51讲：利用聚合函数和SQL语句完成多工作表的汇总查询计算。今日的内容看似简单，其实有些难度，希望大家不要放弃，在自己测试的时候要多测试几次。虽然本讲的内容可利用其他的方法也可以实现，但这种方法也不失为一种解决问题的有效手段。

在我的系列书籍中一直在强调“搭积木”的编程思路，主要的内涵：首先是代码不要自己全部的录入，你要做的是把积木放在合适的位置让后去修正代码，其次是建立自己的“积木库”,把自己认为有用的代码放在一起，可以随时利用。你的积木库资料越多，你做程序的思路就会越多。数据库的代码录入更是如此，代码往往很长，千万不要自己去录入。空格，引号，逗号的写法要求是非常严格的。一定要拷贝，然后修正代码，把时间利用到高效的思考上。

1 应用场景的具体分析

今日的内容是讲聚合函数和SQL的结合，从而完成我们的实际工作。如下的实例：我的工作表中有两页格式接近的数据，如下：

现在我要把两个工作表的数据提取型号，数量，单价，并把数量按型号汇总，汇总后的数据按型号排序处理。

上面的例子，如果在EXCEL工作表文件中处理要多个步骤来完成，用数据库的一般方案也是比较麻烦的，下面看我们联合函数的功效吧。

2 完成多工作表的汇总查询计算的代码及代码解读

我给出的代码如下;

Sub mynzRecords_51() '第51讲利用联合函数和SQL语句完成多工作表的汇总查询计算

Dim cnADO, rsADO As Object

Dim strPath, strSQL1, strSQL2, strSQL3, strSQL4 As String

Worksheets("51").Select

Cells.ClearContents

Set cnADO = CreateObject("ADODB.Connection")

Set rsADO = CreateObject("ADODB.Recordset")

'建立一个ADO的连接

strPath = ThisWorkbook.FullName

cnADO.Open "provider=Microsoft.ACE.OLEDB.12.0;extended properties='excel 12.0;hdr=yes;imex=1';data source=" & strPath

strSQL1 = "select 型号,数量,单价 from [数据$]"

strSQL2 = "select 型号,数量,单价 from [数据2$]"

strSQL3 = strSQL1 & " UNION ALL " & strSQL2

strSQL4 = "select 型号,SUM(数量),单价 from (" & strSQL3 & ") GROUP BY 型号,单价"

arr = Array("型号", "数量", "单价")

[a1:c1] = arr

[a65536].End(xlUp).Offset(1, 0).CopyFromRecordset cnADO.Execute(strSQL4)

cnADO.Close

Set cnADO = Nothing

Set rsADO = Nothing

End Sub

代码截图：

代码讲解：

1 strSQL1 = "select 型号,数量,单价 from [数据$]" 第一个SQL语句完成“数据”工作表的数据提取。

2 strSQL2 = "select 型号,数量,单价 from [数据2$]" 第二个SQL语句完成“数据2”工作表的数据提取。

3 strSQL3 = strSQL1 & " UNION ALL " & strSQL2 第三个SQL语句完成strSQL1和strSQL2的组合，这里利用到了联合函数UNION，此函数的用法大家要注意，按照我给出的代码示例进行即可。

4 strSQL4 = "select 型号,SUM(数量),单价 from (" & strSQL3 & ") GROUP BY 型号,单价"

第四个SQL语句，通过上面的聚合函数建立一个新的SQL查询。同样这个语句的写法要注意按照我的示例格式进行，不要另辟蹊径，通不过的。

下面看我们代码的运行结果：

今日内容回向：

1 聚合函数在sql中如何应用？

2 如何利用联合函数完成数据的统计？

本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。