使用最新日期更新数据透视表过滤器

Question

我想在宏中添加使用PVT过滤器最新日期的可能性。我知道有一些关于它的帖子，但是我的问题没有人。

我复制了这篇文章中的代码，因为我遇到了同样的问题，并且已经找到了答案。如果需要，请在此处找到更多上下文： Macro to automatically select the most recent date in a pivot table filter drop down

Sub RefreshPivotLatestDate()

' RefreshPivot Macro

Sheets("PVT Y").Select
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
ActiveSheet.PivotTables("PivotTable1").PivotFields("Order Date"). _
ClearAllFilters
ActiveSheet.PivotTables("PivotTable1").PivotFields("Order Date").CurrentPage _
= ThisWorkbook.Worksheets("PVT Y").Range("B4").Value
End Sub

但是，此代码错误在以下行：

   ActiveSheet.PivotTables("PivotTable1").PivotFields("Order Date").CurrentPage _
= ThisWorkbook.Worksheets("PVT Y").Range("B4").Value

我已经确认：

-我的工作表称为PVT Y

-我的pvt称为PivotTable1

-我的数据透视字段称为“订购日期”，是我的PVT中的过滤器。该行不会出现在ror列中。

-在B4中，我有一个公式从我的数据集中检索最新的订购日期。我使用MAX公式来这样做。

此代码不起作用，实际上会对我有很大帮助。

非常感谢张贴者。在此先感谢您为我提供帮助的人！

祝你有美好的一天！