我正在通过另一个工作表中的单元格引用来更新Powerpivot数据透视表，但是在确定正确的语法时遇到了麻烦。
如果我对日期进行硬编码，则代码可以正常工作（请参见下文）：
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]"
但是，如果我尝试使用变量而不是对日期进行硬编码，则会收到“应用程序定义或对象定义的错误”消息。
这是我要使用的代码：
'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]"
谁能给我一些指导，以使我可以使用变量？
它定义为字符串，但实际上是一个变量。更改以下代码行：
"[Closed Cases].[Closed Date Week End].&[" & FilterDate & "]"
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句