Ошибка времени выполнения при добавлении более 1 сводной таблицы в существующую таблицу - PullRequest
Новая
       34

Ошибка времени выполнения при добавлении более 1 сводной таблицы в существующую таблицу

0 голосов
/ 18 мая 2018

У меня есть макрос, который создает новую рабочую таблицу и сводную таблицу (которая работает просто отлично).Как только я пытаюсь добавить в эту таблицу вторую сводную таблицу, я получаю это сообщение об ошибке.

Сообщение об ошибке: ошибка времени выполнения '5': неверный вызов процедуры или аргумент

Когда я создаю второй свод в новой рабочей таблице, он работает просто отлично,поэтому я думаю, что проблема заключается в том, что я выбираю добавить к существующей рабочей таблице.

Вот код для второго центра (создан с использованием макроса, извините, я новичок в этом, так что это может быть немного грязно),ошибка в строке 3. Не знаю, почему она ссылается на сводную таблицу «Calls by Region / Analyst», которая является уже существующей сводкой: 

Sheets("Sorted Data").Select
ActiveCell.Offset(1, -7).Range("Table1[[#Headers],[Status]]").Select
ActiveWorkbook.Worksheets("Pivot Tables").pivotTables("Calls by Region/Analyst" _
    ).PivotCache.CreatePivotTable TableDestination:="Pivot Tables!R3C6", _
    TableName:="PivotTable6", DefaultVersion:=xlPivotTableVersion12
Sheets("Pivot Tables").Select
Cells(3, 6).Select
ActiveSheet.pivotTables("PivotTable6").Name = "Analyst"
ActiveSheet.pivotTables("Analyst").AddDataField ActiveSheet.pivotTables( _
    "Analyst").PivotFields("Assigned User Name"), "Count of Assigned User Name", _
    xlCount
ActiveSheet.pivotTables("Analyst").PivotFields("Count of Assigned User Name"). _
    Caption = "Number of Calls"
With ActiveSheet.pivotTables("Analyst").PivotFields("Assigned User Name")
    .Orientation = xlRowField
    .Position = 1
End With
ActiveSheet.pivotTables("Analyst").CompactLayoutRowHeader = "Analyst"
ActiveCell.Offset(0, 4).Range("A1").Select
End Sub

Вот код для второго сводка, который работает при его открытиив новом листе, однако он мне нужен в существующем листе (на F3): 

Sheets("Sorted Data").Select
ActiveCell.Offset(1, -7).Range("Table1[[#Headers],[Status]]").Select
Sheets.Add
ActiveWorkbook.Worksheets("Pivot Tables").pivotTables("Calls by Region/Analyst" _
    ).PivotCache.CreatePivotTable TableDestination:="Sheet3!R3C1", TableName:= _
    "PivotTable5", DefaultVersion:=xlPivotTableVersion12
Sheets("Sheet3").Select
Cells(3, 1).Select
ActiveSheet.pivotTables("PivotTable5").Name = "Analyst"
ActiveSheet.pivotTables("Analyst").AddDataField ActiveSheet.pivotTables( _
    "Analyst").PivotFields("Assigned User Name"), "Count of Assigned User Name", _
    xlCount
ActiveSheet.pivotTables("Analyst").PivotFields("Count of Assigned User Name"). _
    Caption = "Number of Calls"
With ActiveSheet.pivotTables("Analyst").PivotFields("Assigned User Name")
    .Orientation = xlRowField
    .Position = 1
End With
ActiveSheet.pivotTables("Analyst").CompactLayoutRowHeader = "Analyst"
ActiveCell.Offset(1, 0).Range("A1").Select
...