Question

我的工作表上有一个数据透视表，我正在尝试添加日期过滤器：

Private Sub foo()

Dim MyDate
MyDate = #1/27/1993#
Worksheets("Timeline").PivotTables("PivotTable7").PivotFields("EndDateFormatted").PivotFilters.Add Type:=xlBetween, Value1:=MyDate, Value2:=MyDate

End Sub

这怎么会导致“无效的过程调用或参数”错误。我做错了什么？

更新： thx luke_t，现在我知道我必须使用xlDateBetween。现在我的代码看起来像：

Private Sub foo()
    Dim d As Date
    Dim dd As Date

    d = DateSerial(2016, 1, 1)
    dd = DateSerial(2016, 1, 2)
    Worksheets("Timeline").PivotTables("PivotTable7").PivotFields("EndDateFormatted").PivotFilters.Add Type:=xlDateBetween, Value1:=d, Value2:=dd
End Sub

现在它说“您输入的日期不是有效日期”（1004）。

Answer 1

您需要将xlDateBetween传递到Type:=方法的PivotFilters.Add参数。

Here is a list可以传递给type参数的常量名称。

使用带有Type:=参数的字符串。见下文。

Private Sub foo()
    Dim d As String

    d = "01/01/2016"
    Worksheets("Timeline").PivotTables("PivotTable7").PivotFields("EndDateFormatted").PivotFilters.Add Type:=xlDateBetween, Value1:=d, Value2:=d
End Sub

Excel VBA - 更改数据透视表的日期过滤器

1 个答案: