0

ピボット テーブルを作成する VBA スクリプトを作成しようとしていますが、残念ながら機能しません。

スクリプト全体は次のとおりです。

Sub SeparateBrandNonBrand()
'
' Last Months Data Summary
' 
'
   Dim PT                     As Excel.PivotTable
   Set PT = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
                                              "2013-10-28!R1C1:R200000C20", Version:=xlPivotTableVersion1).CreatePivotTable( _
                                              TableDestination:="'Data-Summary'!R1C1", TableName:="PivotTable1", _
                                              DefaultVersion:=xlPivotTableVersion1)
   With PT
      With .PivotFields("Sites")
         .Orientation = xlRowField
         .Position = 1
      End With
      With .PivotFields("campagin")
         .Orientation = xlColumnField
         .Position = 1
      End With
      .AddDataField .PivotFields("visits"), "Sum of visits", xlSum
   End With

End Sub

しかし、具体的には実行時に、スクリプトはコードの次の部分が無効であると不平を言います (プロシージャー呼び出しまたは引数が無効です)。

Set PT = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
                                                  "2013-10-28!R1C1:R200000C20", Version:=xlPivotTableVersion1).CreatePivotTable( _
                                                  TableDestination:="'Data-Summary'!R1C1", TableName:="PivotTable1", _
                                                  DefaultVersion:=xlPi

votTableVersion1)

何がうまくいかないのか、誰にも考えがありますか?

4

1 に答える 1

0

このエラーの原因の 1 つ

Version:=xlPivotTableVersion1&DefaultVersion:=xlPivotTableVersion1

マクロを記録して、正しいバージョン (私の場合は 14) をキャプチャしてみてください

于 2013-10-29T13:09:10.007 に答える