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

taijilao · 发表于 2009-4-5 14:16

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

hexunjijin · 发表于 2009-4-5 21:56

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

yuanyuanlyz · 发表于 2009-4-15 00:50

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

Xinger · 发表于 2009-4-16 17:10

谢谢分享。。。。

magitang · 发表于 2009-4-17 00:06

很强大，学习

jerry802 · 发表于 2009-4-18 10:37

谢谢上面几位，学习了，

w_cun · 发表于 2009-4-19 02:55

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

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

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

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

w_cun · 发表于 2009-4-19 02:57

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

w_cun · 发表于 2009-4-19 03:29

'使用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 · 发表于 2009-4-20 15:34

看不明白。

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

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

回复