插入数据字符串以从带有VBA的数据透视表中检索日期范围

Question

我在代码中插入字符串以替换数据透视表字段时遇到问题。我想使用InputBox动态更改程序将输出的数据范围。

我尝试使用CurrentPage命令，但它似乎不起作用。

错误是：

  

运行时错误'1004'：无法获取Worksheet类的PivotTables属性。

Sub InputBoxPivot()
'
' InputBoxPivot Macro
'

'
Dim s, p As String

s = InputBox("Which media house?")

Range("C5").Select
With ActiveSheet.PivotTables("PivotCube").CubeFields( _
    "[Media House].[Media House]")
    .Orientation = xlRowField
    .Position = 1
End With
ActiveSheet.PivotTables("PivotCube").PivotFields( _
    "[Media House].[Media House].[Media House]").VisibleItemsList = Array( _
    "[Media House].[Media House]").CurrentPage = s
With ActiveSheet.PivotTables("PivotCube").CubeFields("[Date].[Calendar Months]" _
    )
    .Orientation = xlRowField
    .Position = 2
End With
ActiveSheet.PivotTables("PivotCube").AddDataField ActiveSheet.PivotTables( _
    "PivotCube").CubeFields("[Measures].[Downloads Count]")
End Sub

你知道是什么导致了这个吗？