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

Question

I have a pivottable on my sheet and I'm trying to add a date filter:

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

How ever this results in an "invalid procedure call or argument" error. What am I doing wrong?

Update: thx luke_t, now I know that I have to use xlDateBetween. Now my code looks like:

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

Now it says "the date you entered is not a valid date" (1004).

Answer 1

You need to pass xlDateBetween into the Type:= parameter of the PivotFilters.Add method.

Here is a list of constant names that can be passed into the type parameter.

Use a string with the Type:= parameter. See below.

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