SQL汇总求助2，急急急急急！！！

xgj.cpa

求助各位大师：

附件中是一个EXCEL文件，里面共两张表，一张“发货记录表”，一张“发货汇总表”。要求：用VBA+SQL编程汇总“发货记录表”中每月发往北京、上海、重庆、广州的商品总数量，并将汇总数据分别发到各城市下面的单元格中。

注：月份和产品分别从下拉列表中选择就可以了。先谢了！！！

xihabang

吃晚饭帮你看看

zez

SQL汇总求助

xihabang

定义名称
choose   具体看附件

Simon_Zhu

1. Sub my_test()
   
2. On Error Resume Next
   
3. Dim Sql$, iRow
   
4. Dim Cnn As Object
   
5. iRow = Sheets("发货记录表").[k65536].End(xlUp).Row
   
6. With Sheets("发货汇总表")
   
7. .[n6:q6].ClearContents
   
8. Set Cnn = CreateObject("adodb.connection")
   
9. Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;hdr=yes;';Data Source=" & ThisWorkbook.FullName
   
10. Sql = "Select sum(北京),sum(上海),sum(重庆),sum(广州) From [发货记录表$k4:S" & iRow & "] where 月份=" & .[m5].Value & " And 产品名称='" & .[m6].Value & "'"
    
11. .[n6].CopyFromRecordset Cnn.Execute(Sql)
    
12. End With
    
13. Cnn.Close
    
14. Set Cnn = Nothing
    
15. End Sub
    

复制代码

详见附件

供参考

realfan

请教下zez大大:
关于$_filedatabase的解释和用法,到处搜过,但解释不多

xgj.cpa

非常感谢各位大师的指教，正在学习。

不过北京与其他三个城市是分开管理的，因此我在北京与其他三个城市之间插入了一列，并染成黑色以示区别，这种情况下又该怎么做啊（见附件）?  特别想求教Simon_Zhu 大师（我暂时在您的代码前加了一个“exit  sub”语句）！！！

Simon_Zhu

原帖由 xgj.cpa 于 2010-6-19 21:33 发表
非常感谢各位大师的指教，正在学习。

不过北京与其他三个城市是分开管理的，因此我在北京与其他三个城市之间插入了一列，并染成黑色以示区别，这种情况下又该怎么做啊（见附件）?  特别想求教Simon_Zhu 大师（我暂 ...

1. Sql = "Select sum(北京),'',sum(上海),sum(重庆),sum(广州) From [发货记录表$k4:S" & iRow & "] where 月份=" & .[m5].Value & " And 产品名称='" & .[m6].Value & "'"

复制代码

替换这一句代码
供参考

Simon_Zhu

原帖由 xgj.cpa 于 2010-6-19 21:33 发表
非常感谢各位大师的指教，正在学习。

不过北京与其他三个城市是分开管理的，因此我在北京与其他三个城市之间插入了一列，并染成黑色以示区别，这种情况下又该怎么做啊（见附件）?  特别想求教Simon_Zhu 大师（我暂 ...

还有这句：
.[n6:r6].ClearContents

来个完整的吧：

1. Sub my_test()
   
2. On Error Resume Next
   
3. Dim Sql$, iRow
   
4. Dim Cnn As Object
   
5. iRow = Sheets("发货记录表").[k65536].End(xlUp).Row
   
6. With Sheets("发货汇总表")
   
7. .[n6:r6].ClearContents
   
8. Set Cnn = CreateObject("adodb.connection")
   
9. Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;hdr=yes;';Data Source=" & ThisWorkbook.FullName
   
10. Sql = "Select sum(北京),'',sum(上海),sum(重庆),sum(广州) From [发货记录表$k4:S" & iRow & "] where 月份=" & .[m5].Value & " And 产品名称='" & .[m6].Value & "'"
    
11. .[n6].CopyFromRecordset Cnn.Execute(Sql)
    
12. End With
    
13. Cnn.Close
    
14. Set Cnn = Nothing
    
15. End Sub
    

复制代码

供参考

xgj.cpa

非常感谢Simon_Zhu 大师的指教，正在学习！！！