[已解决]求VB代码~!求高手！~

mqvh

如题：求VB代码~!求高手！~


上了表格！

最佳答案

月排行榜 / 总排行榜

mxg825

2011-11-24 22:35

1. Sub Comm1_Click()
   
2.     Range("L:Q").ClearContents '先清空
   
3.     Dim t As Single
   
4.     t = Timer
   
5.     Dim cn As New ADODB.Connection, sql As String
   
6.     cn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
   
7.     sql = "select 产品线名称,考核部门,业务员,SUM(销售收入),SUM(销售成本),SUM(销售利润) FROM [求VB$]" & _
   
8.     " GROUP BY 产品线名称,考核部门,业务员"
   
9.     Sheet3.Range("L2").CopyFromRecordset cn.Execute(sql) '导出数据
   
10.     cn.Close
    
11.     Set cn = Nothing
    
12.     Range("L1").Resize(, 6) = Array("产品线名称", "考核部门", "业务员", "合计收入", "合计成本", "合计利润")
    
13.     MsgBox "共用时：" & (Timer - t) * 1000 & "毫秒"
    
14. End Sub

复制代码

跳转到最佳答案楼层

mxg825

1. Sub Comm1_Click()
   
2.     Range("L:Q").ClearContents '先清空
   
3.     Dim t As Single
   
4.     t = Timer
   
5.     Dim cn As New ADODB.Connection, sql As String
   
6.     cn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
   
7.     sql = "select 产品线名称,考核部门,业务员,SUM(销售收入),SUM(销售成本),SUM(销售利润) FROM [求VB$]" & _
   
8.     " GROUP BY 产品线名称,考核部门,业务员"
   
9.     Sheet3.Range("L2").CopyFromRecordset cn.Execute(sql) '导出数据
   
10.     cn.Close
    
11.     Set cn = Nothing
    
12.     Range("L1").Resize(, 6) = Array("产品线名称", "考核部门", "业务员", "合计收入", "合计成本", "合计利润")
    
13.     MsgBox "共用时：" & (Timer - t) * 1000 & "毫秒"
    
14. End Sub

复制代码