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

Question

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

---

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

---

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

我尝试过 .Add 、 .Add2 和使用 FilterType 与 类型 我也尝试过硬编码 Value1 和 Value2 而不是输入变量

Answer 1

ExtDue 是一个PivotField。错误消息很简单：PivotField 没有 Add 或 Add2 方法。您正在寻找PivotFilters.Add 或类似的.Add2。

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