вообщем создаю я сводную таблицу, на основе данных, при этом я предыдущий лист удаляю, потом создаю новый лист и там сводную таблицу, и так каждый раз при формированиии отчета...
Sheets("Исход").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Исход").Select
Sheets.Add
Sheets("Лист2").Select
Sheets("Лист2").Name = "Отчет"
Range("A1").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
s).CreatePivotTable TableDestination:= _
"'[ 2006.xls]Отчет!R3C1", TableName:= _
"Своднаятаблица2", DefaultVersion:=xlPivotTableVersion10
ActiveWorkbook.ShowPivotTableFieldList = True
With ActiveSheet.PivotTables("Своднаятаблица2").PivotFields("Ãîðîä")
.Orientation = xlPageField
.Position = 1
End With
With ActiveSheet.PivotTables("Своднаятаблица2").PivotFields("RDATE")
.Orientation = xlColumnField
.Position = 1
End With
With ActiveSheet.PivotTables("Своднаятаблица2").PivotFields("DEPT")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Своднаятаблица2").PivotFields("GRUPPA_CODE3")
.Orientation = xlRowField
.Position = 2
End With
ActiveSheet.PivotTables("Своднаятаблица2").AddDataField ActiveSheet.PivotTables _
("Своднаятаблица2").PivotFields("Sum-Sum-Îáîðîò"), _
"Ñóììà ïî ïîëþ Sum-Sum-Îáîðîò", xlSum
ActiveSheet.PivotTables("Своднаятаблица2").AddDataField ActiveSheet.PivotTables _
("Своднаятаблица2").PivotFields("Sum-Sum-Îáîðîò"), _
"Ñóììà ïî ïîëþ Sum-Sum-Îáîðîò2", xlSum
ActiveSheet.PivotTables("Своднаятаблица2").AddDataField ActiveSheet.PivotTables _
("Своднаятаблица2").PivotFields("Íàöåíêà, ðóá"), "Ñóììà ïî ïîëþ Íàöåíêà, ðóá", _
xlSum
' ActiveSheet.PivotTables("Своднаятаблица2").AddDataField ActiveSheet.PivotTables _
("Своднаятаблица2").PivotFields("Íàöåíêà, %"), "Ñóììà ïî ïîëþ Íàöåíêà, %", _
xlSum
ActiveSheet.PivotTables("Своднаятаблица2").CalculatedFields.Add "Ïîëå2", _
"= ('Sum-Sum-Îáîðîò'-'Sum-Çàê' )/'Sum-Çàê'", True
ActiveSheet.PivotTables("ÑâîäíàÿÒàáëèöà2").PivotFields("Ïîëå2").Orientation = _
xlDataField


With ActiveSheet.PivotTables("ÑâîäíàÿÒàáëèöà2").PivotFields( _
"Ñóììà ïî ïîëþ Sum-Sum-Îáîðîò2")
.Calculation = xlPercentOfColumn
.NumberFormat = "0,00%"
End With
ActiveWorkbook.ShowPivotTableFieldList = True
ActiveWorkbook.ShowPivotTableFieldList = False


а как мне сделать что бы не удалять лист, а добавлять данные..

и еще
ActiveSheet.PivotTables("Своднаятаблица2").PivotFields("DEPT").PivotItems( _
"2").ShowDetail = False
это я редактирую.. чтоб подгруппы свернулись...
а можно это сделать как нибудь по другому
ActiveSheet.PivotTables("Своднаятаблица2").PivotFields("DEPT").ShowDetail = False так не хочет
мне надо что бы все подгруппы сразу сворачивались

и еще
ActiveSheet.PivotTables("Своднаятаблица2").PivotFields("DEPT").PivotItems( _
"2").ShowDetail = False
это я редактирую.. чтоб подгруппы свернулись...
а можно это сделать как нибудь по другому
ActiveSheet.PivotTables("Своднаятаблица2").PivotFields("DEPT").ShowDetail = False так не хочет
мне надо что бы все подгруппы сразу сворачивались

вот мне и надо добавлять новые данные... а не создавать заново... только я пробовала и у меня постояно ошибки выводит.. вот и спрашиваю как сделать?

вот мне и надо добавлять новые данные... а не создавать заново... только я пробовала и у меня постояно ошибки выводит.. вот и спрашиваю как сделать?

спасибо.. но с добавлением я уже разобралась..
мне бы вот с этим помочь...


ActiveSheet.PivotTables("Своднаятаблица2").PivotFields("DEPT").PivotItems( _
"2").ShowDetail = False
это я редактирую.. чтоб подгруппы свернулись...
а можно это сделать как нибудь по другому
ActiveSheet.PivotTables("Своднаятаблица2").PivotFields("DEPT").ShowDetail = False так не хочет
мне надо что бы все подгруппы сразу сворачивались

up

пробовала.. все равно потом не хочет..

Я когда создаю св. таблицу макросом и потом редактирую, он мне выводит ActiveSheet.PivotTables("Своднаятаблица2").PivotFields("DEPT").PivotItems( _
"2").ShowDetail = False
но просто каких то пунктов может не быть и мне надо что бы независимо от того меняются ли пункты, он все сворачивал, он не хочет... скорей всего я что то делаю не так... только не могу понять что...Вот еслиб кто нибудь подскзал...