Создание сводной таблицы с использованием vba - ошибка времени выполнения

Question

Я пытаюсь создать сводную таблицу с помощью vba. Ниже приведен код, который я пробовал:

Sub CreatePivot() 

    Dim objTable As PivotTable 
    Dim objField As PivotField 
    Dim ws As Worksheet 

    Set ws = Worksheets.Add 
    Sheets(ws.Name).Name = "Write-Off Pivot" 

    ' Select the sheet and first cell of the table that contains the data. 
    ActiveWorkbook.Sheets("GEP Write-Offs Rawdata").Select 
    Range("A1").Select 

    Set objTable = ws.PivotTableWizard 

    ' Specify row and column fields. 
    Set objField = objTable.PivotFields("MPG") 
    objField.Orientation = xlRowField 

    ' Specify a data field with its summary 
    ' function and format. 
    Set objField = objTable.PivotFields("'A_780610 - Inventory - Obsolescence") 
    objField.Orientation = xlDataField 
    objField.Function = xlSum 
    objField.NumberFormat = "$ #,##0" 


End Sub 

Я получаю это сообщение об ошибке. «Ошибка времени выполнения„104“» «метод„PivotTables“объекта" _worksheet»Ошибка

Проблема, кажется, в этой строке, но не в состоянии понять, что вызывает его.

Set objTable = ws.PivotTableWizard 

Answer 1

Ваша следующая строка требует изменений

Set objTable = ws.PivotTableWizard 

Этот должен указывать на лист источника данных. Таким образом, это должно быть.

Set objTable = Sheets("GEP Write-Offs Rawdata").PivotTableWizard 

Это сделает сводную таблицу и записать в новый добавлен лист с момента команды

Set ws = Worksheets.Add 
    Sheets(ws.Name).Name = "Write-Off Pivot" 

не связан с it.May пожалуйста, изменить его соответствующим образом.

Это в дополнение к тому, что предложил @Rory.

Answer 2

Вы должны использовать Используйте ActiveSheet.Pivottablewizard, а не ws.PivotTableWizard поскольку нет каких-либо данных о ws листе.

Кстати, это излишне запутанным:

Sheets(ws.Name).Name = "Write-Off Pivot" 

Все, что вам нужно:

ws.Name = "Write-Off Pivot" 

Answer 3

Методы PivotTableWizard необходим некоторые параметры:

Как это:

Set objTable = ws.PivotTableWizard(xlDatabase, ActiveWorkbook.Worksheets("Table8").Range("A1:A5"), ws.Range("A1:A6")) 

Есть много параметров, для вашего примера мне нужен тип источника данных, источник данных и источник данных.

Вы видите все параметры, если вы просто открыть "(" после того, как es.PivotTableWizard или вы можете получить их здесь:.

https://msdn.microsoft.com/de-de/library/office/ff839228.aspx