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

闲池

一个很纠结很纠结很纠结很纠结的透视表问题，请高手帮忙，谢谢！
数据透视表——求助.rar (5.84 KB, 下载次数: 177)

2010-12-22 09:11 上传

点击文件名下载附件

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

suwenkai

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

doitbest

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

魂断蓝桥

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

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

mn860429

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

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

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

闲池

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

闲池

求高人上传解答文件啊！

doitbest

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 出错想出的笨办法，还望老师完善！

闲池

原帖由 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

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