多表汇总求和问题

lcjy11185

呵呵，透视表及sql我发现不怎么学得来。先学字典及数组。再加强学习

xbl7966

Sub 汇总()
Dim conn As Object
Set conn = CreateObject("adodb.connection")
conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
Sql = "select 证件号码（唯一）,姓名,sum(基本工资),sum(效益工资),sum(合计) from (select * from [1月$] union all select * from [2月$]) group by 证件号码（唯一）,姓名"
sheets("汇总").Range("A2").CopyFromRecordset conn.Execute(Sql)
conn.Close
Set conn = Nothing
End Sub

lysunsb

谢谢。可惜没有分送不了花了

lzqmsy

很好,学习了,保存慢慢研究

huhao910

我想学习透视表的汇总方法可是不会呢

jiao9716391

fankairong 发表于 2012-8-10 08:28
为什么不用数据透视表呢？这种问题应该是透视表的强项啊

你好。两张表如何放在一起透视的？非常感谢

lysunsb

这么好的贴子再不顶就沉了。ado的方法确实不错，简洁、强大

少如

lcjy11185 发表于 2012-8-10 12:17

显示:  运行错误1004
另外, 若增加项目,如30项, 怎样修改代吗?
谢谢!

一指禅62

1. 
   
2. Sub 数据汇总()
   
3.     Dim cnn As Object, sql$, Sh As Worksheet
   
4.     Set cnn = CreateObject("ADODB.Connection")
   
5.     cnn.Open "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties =Excel 8.0;Data Source= " & ThisWorkbook.FullName
   
6.     Range("A8:M65536").ClearContents
   
7.     For Each Sh In Worksheets
   
8.         If Sh.Name <> "汇总" Then sql = sql & "select * from [" & Sh.Name & "$] union all "
   
9.     Next
   
10.     sql = "select 证件号码（唯一）,姓名, sum(基本工资),sum(效益工资),sum(合计) from (" _
    
11.         & Left(sql, Len(sql) - 11) & ")  group by 证件号码（唯一）,姓名 "
    
12.     Range("A8").CopyFromRecordset cnn.Execute(sql)
    
13.     cnn.Close: Set cnn = Nothing
    
14. End Sub

复制代码

对本工作簿内工作表名称不是“汇总”的工作表汇总，要求这些工作表格式相同

一指禅62

附件