Проблема с очисткой и построением сводных таблиц

Пользователь

Сообщений: 155 Регистрация: 01.01.1970

09.11.2011 17:39:50

У меня такой вопрос, иногда(раз в две недели) меняется структура сводной таблице на листе "итоги", я её удаляю макросом:
ActiveSheet.PivotTables("PivotTable1").PivotSelect "", xlDataAndLabel, True
Selection.ClearContents
Однако, при создании новой таблицы на этом листе, я не могу воспользоваться именем "PivotTable1", а доступно уже только следующее "PivotTable2". При создании таблицы пользуюсь:
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Table1", Version:=xlPivotTableVersion16).CreatePivotTable _
TableDestination:="итоги!R3C1", TableName:= _
"PivotTable2", DefaultVersion:=xlPivotTableVersion16

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

Bond Пользователь Сообщений: 81 Регистрация: 26.12.2012	#2 09.11.2011 18:22:25 Может быть не нужно удалять таблица, а достаточно обновить ее содержимое через ActiveSheet.PivotTables("PivotTable1").RefreshTable А если изменился диапазон исходных данных для таблицы, то изменить SourceData

Sovereign

Пользователь

Сообщений: 155 Регистрация: 01.01.1970

09.11.2011 19:04:05

{quote}{login=Bond}{date=09.11.2011 06:22}{thema=}{post}Может быть не нужно удалять таблица, а достаточно обновить ее содержимое через
ActiveSheet.PivotTables("PivotTable1").RefreshTable

А если изменился диапазон исходных данных для таблицы, то изменить SourceData{/post}{/quote}

Разные столбцы используются в качестве критериев сводной таблицы и простой сменой sourcedata не обойтись. Хотелось бы понять, что именно отвечает за данные сводной таблицы и все удалить.

Kuzmich Пользователь Сообщений: 8039 Регистрация: 21.12.2012	#4 09.11.2011 20:42:50 Dim PT As PivotTable PT.TableRange2.Clear Удаляет сводную таблицу

Guest Гость	#5 10.11.2011 11:43:39 {quote}{login=Kuzmich}{date=09.11.2011 08:42}{thema=Re}{post}Dim PT As PivotTable PT.TableRange2.Clear Удаляет сводную таблицу{/post}{/quote} спасибо!