请教一个用 sql来解决类似分类汇总的问题

chhddi

说明：希望各位老师用 sql来解决问题。
希望达到的效果：以“字段8”来分组并分别计数（新增字段“数量”），然后新增字段“总价”，并汇总出“总价”。
最终结果见表sheet1。
附件里面有详细说明，谢谢各位老师了！
数据源：

希望达到的结果：

sql.rar (10.98 KB, 下载次数: 4)

2015-8-22 21:45 上传

点击文件名下载附件

zhaogang1960

请参考：

1. Sub Macro1()
   
2.     Dim cnn As Object, rs As Object, i&, SQL$
   
3.     Set cnn = CreateObject("ADODB.Connection")
   
4.     cnn.Open "Provider = Microsoft.Jet.Oledb.4.0;Extended Properties =Excel 8.0;Data Source =" & ThisWorkbook.FullName
   
5.     SQL = "select 字段1,字段2,字段3,字段4,字段5,单价,count(*) as 数量,单价*count(*) as 总价,字段7,字段8,字段9,字段10,字段11,字段12 from [数据$] group by 字段1,字段2,字段3,字段4,字段5,单价,字段7,字段8,字段9,字段10,字段11,字段12 order by 单价"
   
6.     Set rs = cnn.Execute(SQL)
   
7.     Cells.ClearContents
   
8.     For i = 1 To rs.Fields.Count
   
9.         Cells(1, i) = rs.Fields(i - 1).Name
   
10.     Next
    
11.     Range("a2").CopyFromRecordset rs
    
12.     rs.Close
    
13.     cnn.Close
    
14.     Set rs = Nothing
    
15.     Set cnn = Nothing
    
16. End Sub
    

复制代码

zhaogang1960

附件…………………………………………
sql.rar (21.21 KB, 下载次数: 44)

2015-8-22 21:55 上传

点击文件名下载附件

chhddi

谢谢赵老师！
问题解决了！

LMY123

Set rs = cnn.Execute(SQL)