变量日期

Question

我真的很难在VBA中编码数据透视表。我只想过滤一个可变日期。使用1个透视图可以正常工作，另一个透视图 - 使用相同的数据 - 我总是得到相同的错误消息：

  

无法获取Worksheet类的PivotTables属性

这是我的代码：

str_Date_To_Show = Format(Date, "m/d/yyyy")

'Pivot1

Sheets("Pivot").PivotTables("PivotTable1").PivotFields("Date").ClearAllFilters
Sheets("Pivot").PivotTables("PivotTable1").PivotFields("Date"). _
        EnableMultiplePageItems = False
Sheets("Pivot").PivotTables("PivotTable1").PivotFields("Date").CurrentPage = str_Date_To_Show

'Pivot3
Sheets("Pivot3").PivotTables("PivotTable3").PivotFields("Date").ClearAllFilters
Sheets("Pivot3").PivotTables("PivotTable3").PivotFields("Date"). _
        EnableMultiplePageItems = False
Sheets("Pivot3").PivotTables("PivotTable3").PivotFields("Date").CurrentPage = str_Date_To_Show

我也尝试过Pivot3。它适用于我在VBA中对日期进行硬编码，但后来我无法将2017-09-01变为变量。

ActiveSheet.PivotTables("PivotTable3").PivotFields("[Range].[Date].[Date]"). _
    VisibleItemsList = Array("[Range].[Date].&[2017-09-01T00:00:00]")