3

我正在使用以下代码：

Sub MakeAPivotTable()

    Dim pt As PivotTable
    Dim cacheOfpt1 As PivotCache 'This is the Source Data
    Dim pf As PivotField
    Dim pi As PivotItem
    Dim LastCol As Long
    Dim LastRow As Long
    Dim PRange As Range


    LastCol = Sheets("Sheet2").Range("A1").SpecialCells(xlCellTypeLastCell).Column
    LastRow = Sheets("Sheet2").Range("A1").SpecialCells(xlCellTypeLastCell).Row
    Set PRange1 = Sheets("Sheet2").Cells(1, 1).Resize(LastRow, LastCol)

    On Error GoTo err_add_Y_next_row

    Sheets("Sheet3").Select
    ActiveSheet.PivotTables("PivotTable1").TableRange2.Clear  'Delete any Pivot Table

    'set the cache of PT
    Sheets("Sheet2").Select
    Set cacheOfpt1 = ActiveWorkbook.PivotCaches.Create(xlDatabase, PRange1)

    'create the pt
    Sheets("Sheet3").Select
    Set pt = ActiveSheet.PivotTables.Add(cacheOfpt1, Range("a1"), "PivotTable1")


    'put the Fields in

    With pt
    'add the Fields
    .PivotFields("CAMPAIGN").Orientation = xlRowField
    '.PivotFields("TAG1").Orientation = xlRowField
    '.PivotFields("TAG2").Orientation = xlRowField
    '.PivotFields("TAG3").Orientation = xlRowField
    .PivotFields("CIRN").Orientation = xlColumnField
    .PivotFields("RUN").Orientation = xlPageField  'Column Filter
    .PivotFields("TVSN").Orientation = xlDataField  'Value Field

    'set the number format
    .DataBodyRange.NumberFormat = "#,##0.00"


    'go to classic View
    .RowAxisLayout xlTabularRow
    End With

err_add_Y_next_row:
MsgBox Err.Number & Err.Description, _
    vbExclamation, "VBAtools.pl"

End Sub

但是当我运行代码时，我收到错误“数据透视表字段名称无效。要创建数据透视表报表，您必须使用组织为带有标签列的列表的数据，如果您要更改名称数据透视表字段，您必须为该字段键入一个新名称。”

这段代码运行良好。但突然我开始收到这个错误。

谁能帮我找出原因。

谢谢你。

4

1 回答 1

2

尝试对数据源使用ListObject("Table") 而不是Rangea；这些始终是数据透视表的有效数据源 - 请参阅这个 SO question - 那里的 OP 没有遇到与您相同的问题，但我相信同样的解决方案适用。

表始终是有效源的原因是因为它们始终具有有效的标题，并且它们始终具有至少 1 行数据。

一旦你将你的范围变成了一个表格（并称之为“Table1”），你可以像这样使用它：

Set cacheOfPt1 = ActiveWorkbook.PivotCaches.Create(xlDatabase, "Table1")

对于使用有效数据源的缓存，执行您正在执行的操作应该不会有问题Set pt：

Set pt = ActiveSheet.PivotTables.Add(cacheOfpt1, Range("a1"), "PivotTable1")

此外，使用此设置，您可能需要重新考虑每次都从头开始完全重建数据透视表的需要；您可以简单地在“Table1”中添加/删除数据，然后刷新您的数据透视表 - 它会自动更新以反映“Table1”的内容。

于 2013-09-02T15:50:20.817 回答