VBA：创build一个数据透视表

我已经能够在代码之前创build数据透视表，但是添加到一个新的工作表。 我现在正试图将数据透视表添加到现有的工作表，并得到错误消息“运行时错误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

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