Excel VBA更新数据透视表中的日期

我目前有一个包含原始数据的工作簿，该工作簿被转换为数据透视表进行分析。此数据需要截断到特定的日期范围。我正在尝试半自动化的更新，因为有些工作表是隐藏的，但不断得到一个错误

我收到第10行的以下错误 对象不支持此属性或方法

我已经尝试了.Add、.Add2和使用FilterType vs Type 我也尝试过努力编码Value1和Value2，而不是输入变量

ExtDue是一个数据透视字段。错误消息是直截了当的：数据透视字段没有Add或Add2方法。您正在寻找或类似的。添加2

---

因为它是or.Add2，ExtDue是一个数据透视字段。就是这样，谢谢！

Dim PVTCombo As Worksheet, PVTFull As Worksheet, PVTOnly As Worksheet
Dim ExtDue As PivotField, Table1 As PivotTable
Dim StartDate As String, EndDate As String

Set PVTCombo = ThisWorkbook.Sheets("PVT - Combined")
Set Table1 = PVTCombo.PivotTables("PivotTable1")
Set ExtDue = Table1.PivotFields("External Due")

StartDate = InputBox("Please input start date mm/dd/yyyy", "Start Date")
EndDate = InputBox("Please input end date mm/dd/yyyy", "End Date")

ExtDue.ClearAllFilters
ExtDue.Add2 Type:=xlDateBetween, Value1:=StartDate, Value2:=EndDate

ThisWorkbook.RefreshAll
Calculate

ExtDue.PivotFilters.Add2 Type:=xlDateBetween, Value1:=StartDate, Value2:=EndDate