Вы не могли бы еще подсказать как сделать так, чтобы вкладка со сводной таблицей каждый раз создавалась с одним и тем же именем?
В файле есть вкладка Лист1, но сводные таблицы продолжают создаваться со сквозной нумерацией, даже если предыдущие вкладки удалены.
Т.е., например, я создаю новую вкладку, а она вместо того, чтобы называться Лист2, как мне бы хотелось, создается Лист5 (Лист6, Лист7 и т.д.), хотя вкладки с названием Лист2 уже в файле нет.
Возникнет ли подобная проблема с названием "Сводная таблица1"?
Заранее спасибо!
Часть кода (ошибка выделена):
Код |
---|
Sub Pivot()
'
' Pivot Макрос
'
'
Sheets("Cone").Select
Cells.Select
Range("A3408").Activate
Sheets.Add
' ------ ошибка здесь -------------------------------------------------
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Cone!R1C1:R65536C25", Version:=xlPivotTableVersion10).CreatePivotTable _
TableDestination:="Лист2!R3C1", TableName:="Сводная таблица1", _
DefaultVersion:=xlPivotTableVersion10
' ------------------------------------------------------------------------
Sheets("Лист2").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("Сводная таблица1")
.ColumnGrand = True
.HasAutoFormat = True
.DisplayErrorString = False
.DisplayNullString = True
.EnableDrilldown = True
.ErrorString = ""
.MergeLabels = False
.NullString = ""
.PageFieldOrder = 2
.PageFieldWrapCount = 0
.PreserveFormatting = True
.RowGrand = True
.SaveData = True
.PrintTitles = False
.RepeatItemsOnEachPrintedPage = True
.TotalsAnnotation = False
.CompactRowIndent = 1
.InGridDropZones = True
.DisplayFieldCaptions = True
.DisplayMemberPropertyTooltips = False
.DisplayContextTooltips = True
.ShowDrillIndicators = True
.PrintDrillIndicators = False
.AllowMultipleFilters = True
.SortUsingCustomLists = True
.FieldListSortAscending = False
.ShowValuesRow = True
.CalculatedMembersInFilters = False
.RowAxisLayout xlTabularRow
End With
With ActiveSheet.PivotTables("Сводная таблица1").PivotCache
.RefreshOnFileOpen = False
.MissingItemsLimit = xlMissingItemsDefault
End With
ActiveSheet.PivotTables("Сводная таблица1").RepeatAllLabels xlRepeatLabels
With ActiveSheet.PivotTables("Сводная таблица1").PivotFields("parameter_id")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Сводная таблица1").PivotFields("subgroup_number")
.Orientation = xlRowField
.Position = 2
End With
ActiveSheet.PivotTables("Сводная таблица1").AddDataField ActiveSheet. _
PivotTables("Сводная таблица1").PivotFields("double_data_value"), _
"Сумма по полю double_data_value", xlSum |