Изменение сводной таблицы исходных данных в таблице Excel

Question

Я Тринг написать простой макрос, чтобы изменить исходные данные в таблицу в соседнем листе, и я получаю следующее сообщение об ошибке:

Run-time error '438': Object doesn't support this property or method

таблица называется «OEE 2013» и находится в рабочем листе «2013 OEE данных»

Сводная таблица называется «PivotTable1» и находится в рабочем листе «2013 БРЭО Pivot»

Сводная таблица в настоящее время ссылается на данные из внешней книги и I хотел бы сохранить тот же формат и ссылку t он стол «OEE 2013». Может быть проще создать новую сводную таблицу, но изменение исходных данных кажется более быстрым решением для меня. Это будет повторяться на регулярной основе как часть более крупного макроса.

Sub change_pivot_source() 

    Worksheets("2013 OEE Pivot").PivotTables("PivotTable1").ChangePivotCaches _ 
     ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, _ 
     SourceData:="OEE_2013", Version:=xlPivotTableVersion14) 


End Sub 

Answer 1

Сообщение об ошибке абсолютно действует :)

Изменение .ChangePivotCaches в .ChangePivotCache

Вы можете увидеть MSDN Link