Vba Getpivotdata语法错误

Question

我只想迭代一个数据透视表。我使用getpivotdata来提取透视值。但是，我必须在语法方面做错，因为getpivotdata无法正常工作。我知道问题就出现了，因为使用从枢轴角度变化的值，使其有效。

我试过单引号，双引号，没有任何帮助。请问，任何人都可以检查getpivotdata语法有什么问题吗？

我

Sub Macro1()
'
' Macro1 Macro
'
Dim pt As PivotTable
Dim rsl As PivotTable
Set pt = Worksheets("Sheet3").PivotTables("PivotTable1")
Dim counter As Integer



For Each customer In pt.RowFields("ccode").PivotItems
  For Each product In pt.RowFields("pcode").PivotItems
   For Each size In pt.RowFields("psize").PivotItems

       Range("D1") = pt.GetPivotData("quantity", "Customer Name", customer, "Product Name", product, "Product size", size)



   Next
 Next
Next



 End Sub