qq_40488951 2019-09-14 17:43 采纳率: 100%
浏览 1698
已采纳

如何用VBA批量操作数据透视表

工作表中有很多透视表,希望能批量更改筛选日期
目前代码如下:

Sub 批量更改日期()
Dim pt As PivotTable
For Each pt In Sheet7.PivotTables
pt.PivotFields("日期").PivotFilters.Add2 Type:= _
xlDateBetween, Value1:=Sheet7.Range("f1").Value2, Value2:=Sheet7.Range("f2").Value2
Next
End Sub

运行时出错
图片说明图片说明

求大神指点一下,问题出在哪啊

  • 写回答

2条回答 默认 最新

  • 豆豆技术派 2019-09-15 19:30
    关注

    1、检查你的Sheet7.Range("f1").Value2, 和 Sheet7.Range("f2").Value2 值格式是否正确?,必须要能转换成xlDateBetween匹配的格式。
    2、你xlDateBetween类型添加了几次?你代码里没有清除语句,重复添加会报错的。
    你先试试吧。

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论
查看更多回答(1条)

报告相同问题?

悬赏问题

  • ¥15 请问1553 RT怎么测试,没有BC有方法吗
  • ¥100 业务编程如何选择学习方向和内容?
  • ¥15 wamp3.3.5安装完成后图标正常显示绿色,鼠标左右键点击图标均无反应。求解决方法。
  • ¥15 鼠标点击的这条记录了什么?
  • ¥15 在写pid调速的程序时,电机始终维持最大速度
  • ¥15 【有偿】调用DXGI截图初始化失败,提示0xf 887a0004
  • ¥15 请问如何查看手机root记录?
  • ¥15 商城小程序订单号重复
  • ¥15 学校优化算法sbo和蚁群算法怎么结合
  • ¥21 matlab怎么求时域信号的二阶导数