在数据透视表（VBA）中重复标签

Question

目前，我正在编写一个代码，该代码遍历三个格式相同的数据表，然后创建三个具有相同格式的数据透视表（每个工作表一个）。我想在VBA代码中切换重复标签格式，但似乎无法做到这一点。以下链接是我发现我尝试过的，但没有成功：http://excelpivots.com/pivot/repeat_item_labels/

我会粘贴我的代码，但它很长。我尝试过的要点是：

For each PField in PTable

    If PField.Orientation = xlRowField Then PField.RepeatLabels = True

Next PField

在创建三个数据透视表的循环中。但是，它会抛出错误438。

我做了一些进一步的研究并找到了这个（https://msdn.microsoft.com/en-us/library/office/ff198076.aspx），但我不确定如何使用它。