如何通过单元格引用更新powerpivot数据透视表filter？

我正在通过不同的工作表中的单元格引用来更新Powerpivot数据透视表，但是在确定正确的语法时遇到问题。

代码工作得很好，如果我硬编码一个date（见下文）：

Sheets("Close Rate").Select 'Select the sheet containing the pivot table to update ActiveSheet.PivotTables("PivotTable1").PivotFields( _ "[Closed Cases].[Closed Date Week End].[Closed Date Week End]").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields( _ "[Closed Cases].[Closed Date Week End].[Closed Date Week End]"). _ CurrentPageName = _ "[Closed Cases].[Closed Date Week End].&[2013-09-28T00:00:00]" 

但是，如果我尝试使用variables而不是硬编码date，则会收到“应用程序定义的错误或对象定义的错误”消息。

这是我试图使用的代码：

 'Set up variables Dim FilterDate As String FilterDate = Sheets("CS Dashboard").Range("I5").Value 'Get date for filter Sheets("Close Rate").Select 'Select the sheet containing the pivot table to update ActiveSheet.PivotTables("PivotTable1").PivotFields( _ "[Closed Cases].[Closed Date Week End].[Closed Date Week End]").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields( _ "[Closed Cases].[Closed Date Week End].[Closed Date Week End]"). _ CurrentPageName = _ "[Closed Cases].[Closed Date Week End].&[FilterDate]" 

任何人都可以提供一些指导，我应该如何编码，以便它使用variables？

Answer 1

它被定义为一个string，但实际上是一个variables。 改变这一行代码：

 "[Closed Cases].[Closed Date Week End].&[" & FilterDate & "]"