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

可能导致此错误的一件事

Version:=xlPivotTableVersion1&DefaultVersion:=xlPivotTableVersion1

尝试录制一个宏来捕获正确的版本，在我的例子中，14

于 2013-10-29T13:09:10.007 回答