Excel VBA – 数据透视表 – 变更输出数据的variables

ActiveSheet.PivotTables("Tabela przestawna1").PivotFields( _ "[Period_BO].[Period].[Year]").ClearAllFilters ActiveSheet.PivotTables("Tabela przestawna1").PivotFields( _ "[Period_BO].[Period].[Year]").CurrentPageName = _ "[Period_BO].[Period].[Day].&[2.0170526E7]" 

我build立了一些button来优化从数据库更新数据并在日常报告中使用的工作表。 这是上面的代码工作，但我需要改变它使用从variables而不是[2.0170526E7]指定的数据，并有问题。 我正在尝试不同的方法，但是在这段代码中我不能使用variables。 我的问题是为什么？ 或者我该怎么做。

开始：

  Dim wturaj As String wturaj = Format(Now() - 3, "yyyymmdd") 

情况1：

  wturaj = Left(wturaj, 1) & "." & Mid(wturaj, 2, 7) & "E7" '2.0170526E7 

案例2：

  wturaj = Left(wturaj, 1) & "." & Mid(wturaj, 2, 7) & "E7" wturaj = "[" & wturaj & "]" '[2.0170526E7] 

情形3：

  wturaj = Format(Now() - 3, "dd, mmm, yyyy") '26, May, 2017 

情形4：

  wturaj = "26, May, 2017" 'hardcoded 26, May, 2017 

结束：

  ActiveSheet.PivotTables("Tabela przestawna1").PivotFields( _ "[Period_BO].[Period].[Year]").ClearAllFilters ActiveSheet.PivotTables("Tabela przestawna1").PivotFields( _ "[Period_BO].[Period].[Year]").CurrentPageName = _ "[Period_BO].[Period].[Day].&wturaj"