Макрос Сводной Таблиц для всех листов

[Richard123]

Добрый день!

Есть n кол-во листов, как сделать единый макрос для создания сводной на всех листа?
Видел макрос перебора листов For...Each... и с перебором наверное проблем не будет.
Я так понимаю что исходя из кода создания сводной:

    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=**********************, _
        Version:=xlPivotTableVersion12).CreatePivotTable _
        TableDestination:="123!R1C1", TableName:="M1", _
        DefaultVersion:=xlPivotTableVersion12

Необходимо правильно указать "SourceData", на текущий активный лист и весь диапазон активного листа.

Как это правильно написать?

[Serge 007]

Не это ищите?

[Richard123]

Dim Pt As PivotTable

Объявляется Pt как сводную таблицу? Меня всегда интересовало зачем такое делать?

Dim strField As String

Шапка как текст?

      strField = Selection.Cells(1, 1).Text

Вот тут не могу перевести...

 
Range(Selection, Selection.End(xlDown)).Name = "Items"

Тут я так понимаю мы выделяем все данные и обзываим их как Items?

       ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, _
           SourceData:="=Items").CreatePivotTable TableDestination:="", _
               TableName:="ItemList"

Вот тут понято как указывается путь, спасибо)

       Set Pt = ActiveSheet.PivotTables("ItemList")
       ActiveSheet.PivotTableWizard TableDestination:=Cells(3, 1)
       Pt.AddFields RowFields:=strField
       Pt.PivotFields(strField).Orientation = xlDataField

Это через визард, значит 2003 офис (я прав?)

Спасибо, Сергей!

А дальше чтобы это сделать для всех листов, надо сверху дописать вот это?

For Each Sh In ThisWorkbook.Worksheets

[макрос сводной]
Next
End Sub

И ещё вопрос - как сделать чтобы имена сводных менялись относительно листа и создавались на новых листа у которых будет имя =имя сводной+АБВГД ???

[Serge 007]

Сообщение от Richard123

Это через визард, значит 2003 офис (я прав?)

Нет. ......

[Richard123]

А все остальное понято верно?

А что делать с:

Сообщение от Richard123

[code]
И ещё вопрос - как сделать чтобы имена сводных менялись относительно листа и создавались на новых листа у которых будет имя =имя сводной+АБВГД ???