VBA PivotTable Erstellen, Type Mismatch? Was Mache Ich Falsch?

Immer "Type Mismatch" auf der Linie tabledestination:=("pivot!A3")
Ich möchte hinzufügen, ein Blatt mit dem Namen "Pivot" und PivotTable erstellen, die auf das Blatt.

Dim pt As PivotTable
Dim Pcache As PivotCache
Sheets.add.name = "Pivot"
Sheets("DATA").Select
Set Pcache = ActiveWorkbook.PivotCaches.Create(xlDatabase, Cells(1, 1).CurrentRegion)
Set pt = ActiveSheet.PivotTables.Add(PivotCache, tabledestination:=("pivot!A3"))
    With pt
        PivotFields.Subtotals(1) = False
        .InGridDropZones = True
        .RowAxisLayout xlTabularRow
        .PivotFields("Apple").Orientation = xlRowField
        .PivotFields("Apple Qty").Orientation = xlDataField
        End With

InformationsquelleAutor GimGanDi | 2013-09-16

  1. 1

    Dieser arbeitete für mich...

    Sub Sample()
    Dim pt As PivotTable
    Sheets.Add.Name = "Pivot"

    With ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, _
        SourceData:=Sheets("DATA").Cells(1, 1).CurrentRegion)

        Set pt = .CreatePivotTable(TableDestination:="Pivot!R3C1")
    End With

    '~~> Rest of Code
End Sub

    Oder wenn Sie wollen, es zu tun Ihren Weg dann

    Sub Sample()
    Dim pt As PivotTable
    Dim Pcache As PivotCache

    Sheets.Add.Name = "Pivot"

    Set Pcache = ActiveWorkbook.PivotCaches.Create(xlDatabase, _
    Sheets("DATA").Cells(1, 1).CurrentRegion)

    Set pt = Pcache.CreatePivotTable(tabledestination:=("Pivot!R3C1"))

    '~~> Rest of the code
End Sub

    Vorsicht:, Wenn das Blatt PIVOT existiert, erhalten Sie eine Fehlermeldung. Vielleicht möchten Sie fügen Sie diese zu Ihrem code?

    Application.DisplayAlerts = False
On Error Resume Next
Sheets("Pivot").Delete
On Error GoTo 0
Application.DisplayAlerts = True
Sheets.Add.Name = "Pivot"

    InformationsquelleAutor Siddharth Rout

  2. 0

    Anstatt

    Set pt = ActiveSheet.PivotTables.Add(PivotCache, tabledestination:=("pivot!A3"))

    Ich diese verwendet, um vorwärts zu bewegen:

    Sheets("Pivot").Activate
Set pt = ActiveSheet.PivotTables.Add(PivotCache:=Pcache, TableDestination:=Range("A3"))

    Beachten Sie die Zugabe von Sheets("Pivot").Activate und PivotCache:=Pcache. Ich habe nicht überprüft die Gültigkeit der folgenden code, die Anweisung, aber.

    InformationsquelleAutor zedfoxus

Schreibe einen Kommentar