请SQL高手帮忙做个月汇总表

fsc163198

1. Sub 按月汇总()
   
2. Set conn = New ADODB.Connection
   
3. conn.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName
   
4. conn.Open
   
5. If conn.State = adStateOpen Then
   
6. sSql = "Select distinct 客户 From [销售记录$A1:C65536] where 合计 > 0"
   
7. Cells(2, 1).CopyFromRecordset conn.Execute(sSql)
   
8. conn.Close
   
9. End If
   
10. Set conn = Nothing
    
11. For i = 1 To 12
    
12. Dim AdoCn As New ADODB.Connection, Rst As New ADODB.Recordset
    
13. AdoCn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;HDR=Yes;';Data Source=" & ThisWorkbook.FullName
    
14. Rst.Open "Select Cnt From [月份汇总$a1:a65536] A Left Join (Select 客户,Sum(合计) As Cnt From [销售记录$A1:C65536] where Month(日期)= " & i & " Group By 客户) B On a.[客户]=b.[客户]", AdoCn
    
15. Cells(2, i + 1).CopyFromRecordset Rst
    
16. Rst.Close: AdoCn.Close: Set Rst = Nothing: Set AdoCn = Nothing
    
17. Next i
    
18. End Sub

复制代码

按月份汇总.rar (9.76 KB, 下载次数: 132)

2011-8-17 21:12 上传

点击文件名下载附件

我这个是用两条SQL语句拼起来的结果是出来了 但我感觉应该有更好的方法 请高手指点

海滨音诗

直接用数据透视表不就行了？

fsc163198

谢谢你回帖 数据透视以前我用过

我这只是一个表的小部分好多表互相引用数据数据都是关联 透视的数据在别的表就不能引用

roych

用交叉表查询，大体可以简化下：

1. Sub test()
   
2. Dim cnn As New ADODB.Connection
   
3. Dim rst As New ADODB.Recordset
   
4. 
   
5. cnn.Open "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName
   
6. rst.Open "TRANSFORM Sum(a.合计) AS 合计 SELECT A.客户 FROM [销售记录$A1:C12] as A GROUP BY A.客户 PIVOT DatePart('M',A.[日期]) &'月'", cnn, adOpenKeyset, adLockOptimistic
   
7. Sheet3.[a2].CopyFromRecordset rst
   
8. rst.Close
   
9. Set rst = Nothing
   
10. cnn.Close
    
11. Set cnn = Nothing
    
12. End Sub
    

复制代码

如果需要表头，则把以下几句贴入rst.Close的前面。
   Dim i As Long
    For i = 0 To rst.Fields.Count - 1
        Sheet3.[a1].Offset(0, i) = rst.Fields(i).Name
    Next i

fsc163198

{:soso_e179:} 谢谢指点

roych

看了你的短信息，交叉表查询实在不好说。你把SQL语句贴到Access中的查询设计视图中的SQL界面再返回设计界面就明白了。

山山好又快

{:soso_e182:}

jyz6620

学习了{:soso_e183:}

wangyi2004

进来看看。

忘得快

roych 发表于 2011-8-18 20:08
用交叉表查询，大体可以简化下：如果需要表头，则把以下几句贴入rst.Close的前面。
   Dim i As Long
    ...

roych 大侠你好！你的代码运行后出现几个问题：
1、1月表头没有，10月、11月、12月排到9月前面了。
2、第1行与第3行出现一行空行。
请问以上问题能否解决？谢谢！ 按月份汇总.rar (18.81 KB, 下载次数: 15)

2013-4-19 17:13 上传

点击文件名下载附件