数据透视表筛选器仅显示空白会导致VBA错误

问题描述

我已经编码为在数据透视表中创建字段并向其中添加字段，剩下的唯一事情就是为“日期终止”添加过滤器。我添加了过滤器“确定”，但是要过滤，我只需要它显示（空白），并尝试对我一直在线寻找的十几种方法进行变体，请帮助。

Set pc = ActiveWorkbook.PivotCaches.Create(xlDatabase,"System Report!R1C1:R" & SystemReportLastRow & "C49")
Set pt = pc.CreatePivotTable(Sheets("Top Accounts").Range("A2"))

'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Sheets("Top Accounts").Activate
Range("A2").Select

Set objField = pt.PivotFields("ACCOUNT_NAME")
objField.Orientation = xlRowField
objField.Subtotals(1) = False



Set objField = pt.PivotFields("LINE_LASTBILLAMT")
objField.Orientation = xlDataField
    objField.Function = xlSum
    objField.NumberFormat = "#,##0.00 [$kr.-da-DK]"

Set objField = pt.PivotFields("ITEM_SERIAL_NUM")
objField.Orientation = xlDataField
    objField.Function = xlCount
    objField.NumberFormat = "#,##0"

Set objField = pt.PivotFields("LINE_ACC_AMOUNT")
objField.Orientation = xlDataField
    objField.Function = xlSum
    objField.NumberFormat = "#,##0.00 [$kr.-da-DK]"

Set objField = pt.PivotFields("ACCOUNT_NAME")
objField.AutoSort _
        xlDescending,"Sum of LINE_ACC_AMOUNT"

Set objField = pt.PivotFields("DATE_TERMINATED")
    objField.Orientation = xlPageField
    objField.Position = 1

PivotField.PivotItems("*").Visible = False
PivotField.PivotItems("(blank)").Visible = True

解决方法

最后找到了可行的解决方案：

将p_i设为PivotItem 与pt.PivotFields（“ DATE_TERMINATED”） .PivotItems（“（空白）”）。Visible = True 对于.PivotItems中的每个p_i 如果p_i.Name “（空白）”然后 p_i.Visible = False 万一 下一个 结尾为