1

行tabledestination:=("pivot!A3")
に型の不一致を取得するシートを追加して「ピボット」という名前を付け、そのシートにピボットテーブルを作成します。 

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
4

2 に答える 2

0

使用する代わりに

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

私はこれを使って前進しました：

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

Sheets("Pivot").Activateとが追加されていることに注意してくださいPivotCache:=Pcache。ただし、そのステートメントの下のコードの有効性は確認していません。

于 2013-09-16T19:05:17.130 に答える