透视表超级更新问题

gorun121 · 发表于 2008-9-7 17:34

问题已经被版主解决了（附件上有）。

现在我想，通过代码实现我提的问题，不是通过像版主提供用按钮的办法。问题在此链接上

BIN_YANG168 · 发表于 2008-9-8 10:12

EE4wmuaG.rar (11.08 KB, 下载次数: 14)

lrnanfayer · 发表于 2008-9-9 15:03

QUOTE:

以下是引用BIN_YANG168在2008-9-8 10:12:00的发言：

看的不是很明白，LZ能仔细解释一下么？谢谢！

gorun121 · 发表于 2008-9-9 17:14

QUOTE:

以下是引用lrnanfayer在2008-9-9 15:03:00的发言：

看的不是很明白，LZ能仔细解释一下么？谢谢！

其实就是数据透视表自动更新的问题，不过我的比较特殊一点而已，是这样的

1.问题的根本就是：工作薄中有2个或2个以上的数据源时，如何做到各自都能自动刷新？

2.彬帅用的是一种窗体代码，通过按钮就刷新了工作薄中所有的透视表，这是一种办法，而且很不错（附件上有）

3.在彬帅的办法之前，我自己找个代码（如下），也可以实现自动刷新。但是有个最大的问题：只能刷新1个数据透视表的数据，所以才有了以上彬帅的解决办法和我的新问题。

Private Sub Worksheet_Activate()
ActiveSheet.PivotTables("数据透视表1").RefreshTable
End Sub

4.其实我的新问题就是：能否也用代码实现工作薄中有2个或2个以上的数据源时，各自数据透视表都能自动刷新？明白没？

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