折疊其中一個樞軸字段

Question

我有一個包含幾個字段的數據透視表，並且我只希望折疊一個數據透視表。 我似乎無法使其正常運行，因此需要幫助。

Dim pt As PivotTable
Dim pr As Range
Dim pc As PivotCache


Set pr = dataSht.UsedRange
Set pc = wb.PivotCaches.Create(xlDatabase, SourceData:=pr)
Set pt = pc.createPivotTable(wb.Worksheets(shtName).Range("A1"), strPivotName)


With pt

.PivotFields("One").Orientation = xlRowField
.PivotFields("One").Subtotals(1) = False
.PivotFields("Two").Orientation = xlRowField
.PivotFields("Two").Subtotals(1) = False
.PivotFields("Three").Orientation = xlRowField
.PivotFields("Three").Subtotals(1) = False
.PivotFields("Four").Orientation = xlRowField
.PivotFields("Four").Subtotals(1) = False


With .PivotFields("Sum of $$$ (000)")
        .Orientation = xlDataField
        .Caption = "% Total"
        .Calculation = xlPercentOfParent
        .BaseField = "Two"
        .NumberFormat = "0.00%"

End With

我希望折疊最后一個字段，四。 在我的第一個With末尾添加.PivotFields("Four").ShowDetail = False會給我一個應用程序定義的錯誤或對象定義的錯誤。 “ ShowDetails”的結果相同。

另外，我嘗試使用DrillTo（盡管我不太了解），但在End With之后使用以下功能：

Dim pi as PivotItem
pi.DrillTo Field:= "Three"

同樣，我得到一個錯誤。 未設置對象變量或帶塊變量。

仍然把頭放在VBA上，所以如果有人可以幫助我，那就太好了！

Answer 1

弄清楚了！ 因此，對於將來可能會有類似問題的那些用戶：

我必須上一個級別並專門確定數據透視表，因為它with pt無關

所以，在我的問題中上面的代碼之后，我添加了

pt.TableStyle2 = "PivotStyleMedium3"
pt.PivotFields("Three").ShowDetail = False

end With

為什么它在我的第一個with block中不起作用，我不知道，但至少它能起作用。 我的猜測可能是在完全創建數據透視表之前無法對其進行操作。 也許。 舉重若輕