Excel VBA - Изменение дата фильтр сводной таблицы

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:=. Смотри ниже.

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