VBA对数据透视表的操作

hyd1985 · 发表于 2013-9-10 08:38

我要做一个数据透视表
前面是数据表
后面一个工作表是透视表，
我希望实现的功能是
当我点击第二个工作表的时候，透视表的数据自动刷新，透视表中关于日期的筛选项是今天的日期
问题是：
当我用录制的宏进行调试的时候出现如截图的错误

ActiveSheet.PivotTables("数据透视表1").PivotCache.Refresh
ActiveSheet.PivotTables("数据透视表1").PivotFields("编码日期").CurrentPage = "2013/9/6"

是不是应当用：
ActiveSheet.PivotTables("数据透视表1").PivotFields("编码日期").CurrentPage = date
这样貌似也不成

蓝桥玄霜 · 发表于 2013-9-10 10:15

没有附件不能测试代码。

hyd1985 · 发表于 2013-9-10 14:19

蓝桥玄霜发表于 2013-9-10 10:15
没有附件不能测试代码。

非常感谢版主的及时回复，
因我所在的单位进行了文档加密，
所以无法提供文档附件

我要实现的功能很简单：
在数据库中将编码数据编制好

选择查询表
查询表能够自动刷新都是列表
编码日期默认显示为今天的日期
编码问题附件.jpg

蓝桥玄霜 · 发表于 2013-9-10 16:01

可做个类似的附件。

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

VBA对数据透视表的操作

最新热点 /1