VBA：创建数据透视表

Question

之前我已经能够在代码中创建数据透视表了，但这又添加了一个新的工作表。我现在正在尝试向现有工作表添加数据透视表，并收到错误消息“运行时错误1004：数据透视表字段名称无效”。代码如下，我的错误从以ActiveWorkbook开始并以xlPivotTableVersion14结尾的最后一段开始。任何帮助将不胜感激。

Public Sub AlliedPT()

Dim AlliedData As String
Dim SAProw As Long
Dim PivotSheet As String

Sheets("Sheet1").Select
SAProw = Cells(Rows.Count, "A").End(xlUp).Row

Sheets("Sheet1").Select
ActiveWorkbook.Names.Add Name:="AlliedData", RefersTo:= _
    "=Sheet1!$A$1:$N$" & SAProw

Sheets("PivotSheet").Select
PivotSheet = ActiveSheet.Name

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
  "AlliedData", Version:=xlPivotTableVersion14).CreatePivotTable _
  TableDestination:=PivotSheet & "!R3C6", TableName:="PivotTable18", 
  DefaultVersion _
  :=xlPivotTableVersion14

End Sub

Answer 1

我认为您应该检查SHEet 1中的第1行A-N列，并确保源数据中的每列都有唯一的非空白列名称。第一行包含数据透视表字段名称。