VBA: Erstellen einer Pivot-Tabelle

Question

Ich war in der Lage, Pivot-Tabellen im Code zuvor zu erstellen, aber das Hinzufügen zu einem neuen Arbeitsblatt. Ich versuche jetzt, eine Pivot-Tabelle zu einem vorhandenen Arbeitsblatt hinzuzufügen und Fehlermeldung "Laufzeitfehler 1004: der PivotTable-Feldname ist ungültig" erhalten. Der Code ist unten, mein Fehler beginnt im letzten Segment beginnend mit ActiveWorkbook und endet mit xlPivotTableVersion14. Jede Hilfe würde sehr geschätzt werden.

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

Ich glaube, Sie sollten Ihre Zeile 1 Spalt A-N in Blatt 1 und stellen Sie sicher, überprüfen gibt es einen einzigartigen, nicht-leeren Spaltennamen für jede Spalte in den Quelldaten. Die erste Zeile enthält die Pivot-Tabellenfeldnamen.