一个很纠结很纠结很纠结很纠结的透视表问题，（合并不同结构多表，已解决）

闲池 · 发表于 2010-12-22 09:11

一个很纠结很纠结很纠结很纠结的透视表问题，请高手帮忙，谢谢！

数据透视表——求助.rar (5.84 KB, 下载次数: 177)

[ 本帖最后由闲池于 2010-12-23 23:15 编辑 ]

suwenkai · 发表于 2010-12-22 09:28

2个表的结构都不一样的怎么做合并啊，修改其中一个表格才可以合并。

doitbest · 发表于 2010-12-22 09:29

将初始数据转成数据库形式（和新增数据格式相同），然后透视表将两表合并，即实时更新

魂断蓝桥 · 发表于 2010-12-22 09:56

请教一下。
transform sum(金额) select 姓名 from [新增数据$a1:c6] group by 姓名 pivot 类型 union all select * from [初始数据]

这语句执行不了？难道transform sum(金额) select 姓名 from [新增数据$a1:c6] group by 姓名 pivot 类型不能联合查询吗？

mn860429 · 发表于 2010-12-22 10:53

是的吧，记得交叉表函数只是用来显示数据的

http://www.exceltip.net/thread-8670-1-1-29797.html

[ 本帖最后由 mn860429 于 2010-12-22 11:02 编辑 ]

闲池 · 发表于 2010-12-22 11:12

难点就在于，两个表字段不一样。。特殊需要，看看能不能在sql语句里做处理。。

闲池 · 发表于 2010-12-22 11:15

求高人上传解答文件啊！

doitbest · 发表于 2010-12-22 11:17

Dim cnn As New ADODB.Connection
Dim rc As ADODB.Recordset
Dim Sql As String
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;Hdr=Yes';Data Source=" & ThisWorkbook.FullName
Sql = "transform sum(金额) select 姓名 from [新增数据$] group by 姓名 pivot 类型"
Set rc = cnn.Execute(Sql)
Sheets("结果数据").[A3].CopyFromRecordset rc
Sql = "select 姓名,null,油费,话费,差旅 from [初始数据$]"
Set rc = cnn.Execute(Sql)
Sheets("结果数据").[A65536].End(xlUp).Offset(1, 0).CopyFromRecordset rc
以上语句调试正常，我也是用union all 出错想出的笨办法，还望老师完善！

闲池 · 发表于 2010-12-22 11:20

原帖由 doitbest 于 2010-12-22 11:17 发表
Dim cnn As New ADODB.Connection
Dim rc As ADODB.Recordset
Dim Sql As String
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;Hdr=Yes';Data Source=" & ThisWo ...

好复杂。。。谢谢！

期待纯数据透视表

doitbest · 发表于 2010-12-22 11:21

请问交叉查询怎么结果多出一个空列呢

		自动登录	找回密码
密码			免费注册

[求助] 一个很纠结很纠结很纠结很纠结的透视表问题，（合并不同结构多表，已解决）

回复 2楼 suwenkai 的帖子