VBA: Ошибка при создании сводной таблицы

Я пытаюсь создать сводную таблицу в Excel VBA (2013), используя следующий кодVBA: Ошибка при создании сводной таблицы

Dim pt As PivotTable 
Dim cache As PivotCache 

Sheets("data").Select 
Set cache=ActiveWorkbook.PivotCaches.Create(xlDatabase,Cells(1,1).CurrentRegion) 

Sheets("pivot").Select 
Set pt = cache.CreatePivotTable("R4C")

Я получаю сообщение об ошибке в строке множества пт. пожалуйста, помогите определить ошибку.

источник

2016-05-05 Nishant ranjan

Какая ошибка? Что вы уже пробовали? Пожалуйста, посетите [справочный центр] (http://stackoverflow.com/help/how-to-ask). – Clijsters

Назначение должно быть диапазоном (вы отправили строку) –

Ошибка является определяемой или определяемой объектом ошибкой Я использовал ** Установить pt = cache.CreatePivotTable (Range ("A1")) **, все еще он дает ошибку –

Вы правы «RC» -строка действительна ... но вам нужно полное ref!

Чтобы заставить его работать, используйте:

Dim pt As PivotTable 
Dim cache As PivotCache 

Set cache = ActiveWorkbook.PivotCaches.Create(xlDatabase, Sheets("data").Cells(1, 1).CurrentRegion) 

Set pt = cache.CreatePivotTable("'pivot'!R4C")

Pls проверить, есть ли другой объект в месте назначения (что может привести к ошибке).

источник

2016-05-05 14:06:52

VBA: Ошибка при создании сводной таблицы

ответ

Смежные вопросы