MS Query汇总多个工作簿数据(基础操作法)

taijilao

我的天呀,数据透视表真是强大无比!

hexunjijin

不错，这个帖子中大概50%的人都明白了，谢谢

yuanyuanlyz

我跟118楼出现同样的问题,

Xinger

谢谢分享。。。。

magitang

很强大，学习

jerry802

谢谢上面几位，学习了，

w_cun

gvntw版主：您的工具很好用！很强大！我按照我的表改造了一下代码，原始数据不删除列的时候，在运行宏时会出错，出错的代码位置如附件的图；

说明：1.我的表格输入是两张表，每张表都是250列，20000行；将两张格式一样的表合并后，得到一个数据透视表；

      2.我删得剩下74列的时候可以用您的工具生成！该代码受列数的限制！有什么优化的方法没有，让VBA代码优化后不受列数的限制！

多谢！！！期待您的答复！！！

w_cun

从上面的分析来看，我的代码是没有问题的，可是列数受限，你就从列数受限的角度出发来解决此问题吧，谢谢！

w_cun

'使用AddFields方法为数据表添加行，列和页字段，本例中“Data”为虚拟的数据字段，表示数据字段放置在透视表的列区域！
    pt.AddFields PageFields:="RNSSubNetId", PageFields:="Cell", ColumnFields:="Begin time"
        
    With pt.PivotFields("Number of Attempted RAB Establishment")
        .Orientation = xlDataField      '向透视表添加"期初余额借方"字段，放置在数据区域。
        .Position = 1                   '如果数据区域有多个字段，那么这个字段的位置放在第1。
        .Name = " Number of Attempted RAB Establishment"         '给字段重新命名。"
    End With
   
    With pt.PivotFields("Average Cell Freq RTWP(dbm)")

该语句实现自动生成数据透视表，但是我这句的写法有问题    pt.AddFields PageFields:="RNSSubNetId", PageFields:="Cell", ColumnFields:="Begin time"，就是出现两个 PageFields的时候，只能显示一个，请问如何实现两个PageFields同时显示，同理，RowFields、ColumnFields如何显示！大家讨论一下，多谢！期待您的答复！

hengnet

看不明白。