PivotFields系列

Question

我正在努力：

1. 将PivotTable.PivotFields集合对象复制到临时对象 一个
2. 对临时文件执行一些更改
3. 然后将原始PivotTable.PivotFields集合设置为指向 新的PivotFields Collection。

我正在尝试使用以下代码。当我尝试使用“New PivotFields”时，我在指示的行上出现Compile错误。我究竟做错了什么？任何帮助都会得到满足。

Public Sub ChangePivotTable()

    Dim objPivotTable As PivotTable
    Dim objPivotFields As PivotFields
    Dim objTempPivotFields As PivotFields

    'Get Pivot Table from worksheet
    Set objPivotTable = Worksheets("PivotTableWorksheet").PivotTables(1)
    'Set reference to PivotFields Collection of PivotTable
    Set objPivotFields = objPivotTable.PivotFields

    'Compile error: Invalid use of New Keyword
    Set objTempPivotFields = New PivotFields

    'Pass Collection by Value
    Let objTempPivotFields = objPivotFields 

    'Make changes to Temporary PivotFields Collection
    Dim intIndex As Integer
    For intIndex = 6 To 2156

        objTempPivotFields(intIndex).Orientation = xlDataField
        objTempPivotFields(intIndex).Function = xlAverage

    Next intIndex

    'Set original PivotFields Collection to temporary one
    Set objPivotFields = objTempPivotFields

End Sub