数量汇总

excelhome9819

老师：您好！请指导下
希望用VBA程序实现数量汇总
原始数据表

图纸名称	修改名称		楼层	数量
QBLOCK2008121110122964	LED射灯  光效80lm/W;色温:暖白光（WW）2700-3200k		1层	1
QBLOCK2008121110122964	LED射灯  光效80lm/W;色温:暖白光（WW）2700-3200k		1层	1
QBLOCK2008121110122964	LED射灯  光效80lm/W;色温:暖白光（WW）2700-3200k		1层	1
A$C3C79480B	LED筒灯  光效80lm/W；色温:自然光（NW）4000-4500K		1层	1
A$C3C79480B	LED筒灯  光效80lm/W；色温:自然光（NW）4000-4500K		1层	1

希望用VBA程序汇总成如下

楼层	修改名称	数量
1层	分线盒	86
2层	分线盒	164
3层	分线盒	1
5层	分线盒	4
1层	三联单控开关	10
2层	三联单控开关	34

我的VBA程序是：
Sub VBA汇总工程量()
    Set Cnn = CreateObject("ADODB.connection")
    Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;IMEX=1';Data Source=" & ActiveWorkbook.FullName
    Sql = "SELECT 修改名称,楼层,SUM(数量) FROM [直接替换$] WHERE 修改名称 IS NOT NULL GROUP BY 修改名称,楼层 "
    Sheets("工程量汇总").Activate
    [B5].CopyFromRecordset Cnn.Execute(Sql)
    Cnn.Close: Set Cnn = Nothing
End Sub


可是实际运行效果是：

楼层	修改名称	数量
	分线盒		25
	分线盒	1层	86
	分线盒	2层	164
	分线盒	3层	1
	分线盒	5层	4
	分线盒	已替换	24
	三联单控开关		2
	三联单控开关	1层	10
	三联单控开关	2层	34
	三联单控开关	已替换	1

请问上述程序错误是在什么地方？如何修改？谢谢您的指导！

abc123281

需要上传附件

excelhome9819

忘记上传附件了 重新上传 谢谢

excelhome9819

abc123281 发表于 2019-6-20 15:06
需要上传附件

已经上传附件了，谢谢。请指导

excelhome9819

abc123281 发表于 2019-6-20 15:06
需要上传附件

已经上传附件了，谢谢。请指导

abc123281

Sub VBA汇总工程量()
  Set Cnn = CreateObject("ADODB.connection")
  Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;IMEX=1';Data Source=" & ThisWorkbook.FullName
  Sql = "SELECT 楼层,修改名称,SUM(数量) FROM [直接替换$b1:e] WHERE 楼层 like '%层%' GROUP BY 修改名称,楼层 "
  With Sheets("工程量汇总")
    .UsedRange.Offset(1).Clear
    .[a2].CopyFromRecordset Cnn.Execute(Sql)
  End With
  Cnn.Close
  Set Cnn = Nothing
End Sub

abc123281

BOOK表123.rar (42.15 KB, 下载次数: 12)

2019-6-20 19:44 上传

点击文件名下载附件

excelhome9819

abc123281 发表于 2019-6-20 19:43
Sub VBA汇总工程量()
  Set Cnn = CreateObject("ADODB.connection")
  Cnn.Open "Provider=Microsoft.Je ...

谢谢 成功了

excelhome9819

abc123281 发表于 2019-6-20 19:44

谢谢 很好的