vba: Pivot-Tabelle erstellen

Question

Ich habe eine Pivot-Tabelle mit VBA erstellen, aber ich habe die folgende Fehlermeldung: „Laufzeitfehler‚438‘Objekt unterstützt diese Eigenschaft oder Methode“ diesen Code: ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ "Sheet1!R1C1:R1048576C8", Version:=6).CreatePivotTable TableDestination:= _ pivotTableWs!R1C1, tableName:=tableName, DefaultVersion:=6

hier

die komplette Quelle

Dim tableName As String 
Dim pivotTableWs As Worksheet 

tableName = "pivotTableName" 

Set pivotTableWs = Sheets.Add(after:=Worksheets("Sheet1")) 
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ 
    "Sheet1!R1C1:R1048576C8", Version:=6).CreatePivotTable TableDestination:= _ 
    pivotTableWs!R1C1, tableName:=tableName, DefaultVersion:=6 
Sheets(pivotTableWs).Select 
Cells(1, 1).Select 
With ActiveSheet.PivotTables(tableName) 
    .ColumnGrand = True 
    .HasAutoFormat = True 
    .DisplayErrorString = False 
    .DisplayNullString = True 
    .EnableDrilldown = True 
    .ErrorString = "" 
    .MergeLabels = False 
    .NullString = "" 
    .PageFieldOrder = 2 
    .PageFieldWrapCount = 0 
    .PreserveFormatting = True 
    .RowGrand = True 
    .SaveData = True 
    .PrintTitles = False 
    .RepeatItemsOnEachPrintedPage = True 
    .TotalsAnnotation = False 
    .CompactRowIndent = 1 
    .InGridDropZones = False 
    .DisplayFieldCaptions = True 
    .DisplayMemberPropertyTooltips = False 
    .DisplayContextTooltips = True 
    .ShowDrillIndicators = True 
    .PrintDrillIndicators = False 
    .AllowMultipleFilters = False 
    .SortUsingCustomLists = True 
    .FieldListSortAscending = False 
    .ShowValuesRow = False 
    .CalculatedMembersInFilters = False 
    .RowAxisLayout xlCompactRow 
End With 
With ActiveSheet.PivotTables(tableName).PivotCache 
    .RefreshOnFileOpen = False 
    .MissingItemsLimit = xlMissingItemsDefault 
End With 
ActiveSheet.PivotTables(tableName).RepeatAllLabels xlRepeatLabels 
With ActiveSheet.PivotTables(tableName).PivotFields("field1") 
    .Orientation = xlRowField 
    .Position = 1 
End With 
ActiveSheet.PivotTables(tableName).AddDataField ActiveSheet.PivotTables(_ 
    tableName).PivotFields("ticketid"), "Count of field1", xlCount 
With ActiveSheet.PivotTables(tableName).PivotFields("field2") 
    .Orientation = xlColumnField 
    .Position = 1 
End With 

ich schaffe diesen Code "Entwickler" Registerkarte ausgewählt "Macro-Register" und i erstellen Pivot-Tabelle manuell

Answer 1

ich hinzugefügt haben 2 Object Variablen PvtTbl As PivotTable und PvtCache As PivotCache auf die Verwendung machen Code dynamischer.

Andere Erklärungen sind innerhalb des Codes unten (als Kommentare).

-Code

Option Explicit 

Sub AutoPivot() 

Dim PvtTbl As PivotTable 
Dim PvtCache As PivotCache 

Dim PvtTblName As String 
Dim pivotTableWs As Worksheet 

PvtTblName = "pivotTableName" 

' set the worksheet object where we will create the Pivot-Table 
Set pivotTableWs = Sheets.Add(after:=Worksheets("Sheet1")) 

' set the Pivot Cache (the Range is static) 
Set PvtCache = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:="Sheet1!R1C1:R1048576C8") 

' create a new Pivot Table in the new created sheet 
Set PvtTbl = pivotTableWs.PivotTables.Add(PivotCache:=PvtCache, TableDestination:=pivotTableWs.Range("A1"), TableName:=PvtTblName) 

' after we set the PvtTbl object, we can easily modifty all it's properties 
With PvtTbl 
    .ColumnGrand = True 
    .HasAutoFormat = True 
    .DisplayErrorString = False 
    .DisplayNullString = True 
    .EnableDrilldown = True 
    .ErrorString = "" 
    .MergeLabels = False 
    .NullString = "" 
    .PageFieldOrder = 2 
    .PageFieldWrapCount = 0 
    .PreserveFormatting = True 
    .RowGrand = True 
    .SaveData = True 
    .PrintTitles = False 
    .RepeatItemsOnEachPrintedPage = True 
    .TotalsAnnotation = False 
    .CompactRowIndent = 1 
    .InGridDropZones = False 
    .DisplayFieldCaptions = True 
    .DisplayMemberPropertyTooltips = False 
    .DisplayContextTooltips = True 
    .ShowDrillIndicators = True 
    .PrintDrillIndicators = False 
    .AllowMultipleFilters = False 
    .SortUsingCustomLists = True 
    .FieldListSortAscending = False 
    .ShowValuesRow = False 
    .CalculatedMembersInFilters = False 
    .RowAxisLayout xlCompactRow 

    With .PivotCache 
     .RefreshOnFileOpen = False 
     .MissingItemsLimit = xlMissingItemsDefault 
    End With 

    .RepeatAllLabels xlRepeatLabels 

    With .PivotFields("field1") 
     .Orientation = xlRowField 
     .Position = 1 
    End With 

    .AddDataField .PivotFields("ticketid"), "Count of field1", xlCount 

    With .PivotFields("field2") 
     .Orientation = xlColumnField 
     .Position = 1 
    End With 

End With 

End Sub