Question

我正在尝试创建一个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)

有没有人对可能出现的问题有任何想法？

Answer 1

可能导致此错误的一件事

Version:=xlPivotTableVersion1＆amp; DefaultVersion:=xlPivotTableVersion1

尝试录制宏来捕获正确的版本，在我的情况下，14

创建数据透视表不起作用

1 个答案: