如何在excel vba中包含数据透视表筛选器标题

我试图生成代码来创建引用录制宏的Pivottable报表筛选器标题。之后，我尝试使用vba运行它，根据我的数据创建Pivottable报表筛选器标题，但它没有显示出来。如何解决此问题，或者在使用VBA创建数据透视表时，我可以通过哪些其他方式包含数据透视表标题

Dim LastRow As Long, PRange As Range
LastRow = Worksheets("Result").Cells(Rows.Count, 2).End(xlUp).Row

Set PRange = Worksheets("Result").Range("A2:D" & LastRow).CurrentRegion
Dim pc As PivotCache, pt As PivotTable

Set pc = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=PRange)

Set pt = pc.CreatePivotTable(TableDestination:=Worksheets("wafermapvbd1").Cells(3, 1), TableName:="PivotTable100")

Worksheets("wafermapvbd1").PivotTables("PivotTable100").PivotFields("Device_name"). _
        ClearAllFilters
    Worksheets("wafermapvbd1").PivotTables("PivotTable100").PivotFields("Device_name").CurrentPage _
        = "(All)"
   Worksheets("wafermapvbd1").PivotTables("PivotTable100").PivotFields("Device_name"). _
        EnableMultiplePageItems = True

其他附加信息

工作表中的我的数据（“结果”）

实际值

预期的

---

从第17分钟开始观看此视频从第17分钟开始观看此视频