проблема создания сводной таблицы в VBA / Excel

Question

Я получаю

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

Это часть моего кода, которую VBA сообщает, что проблема с:

    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
            "WIP_Table", Version:=6).CreatePivotTable TableDestination:= _
            "Hours1 Pivot!R1C1", TableName:="PivotTable_Hours1", DefaultVersion:=6

Answer 1

Эту ошибку часто можно исправить, разбив операцию на отдельные шаги:

dim pc as pivotcache, pt as pivottable

Set pc = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
                                           "WIP_Table", Version:=6)
Set pt = pc.CreatePivotTable(TableDestination:="'Hours1 Pivot'!R1C1", _
                             TableName:="PivotTable_Hours1", DefaultVersion:=6)