Сводная таблица с двух листов не выводит нужные данные

[kipish_lp]

Здравствуйте!
Образовалась такая проблема: есть база, но количество строк превышает допустимый предел, и остатки строк приходится переносить на другой лист с теми же наименованиями столбцов. Когда создаешь сводную таблицу на основе одного листа, то сводая таблица создается в таком виде, как надо. А если собирать с двух листов - совсем другой вид и не то суммируется. Я записала макрос создания сводной таблицы, которая собирает с одного листа.
Существует ли возможность создать сводную таблицу с двух листов в таком виде, как с одного? Если да, то как? Пример прикреписть не могу, запрет на загрузку файлов.

Sub Сводная_Таблица_Общая()
' Макрос записан 21.04.2010 ()
'
ПоследняяСтрока = Лист1.Cells(Лист1.Rows.Count, 1).End(xlUp).Row
'
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "Лист1!R1C1:R" & ПоследняяСтрока & "C12").CreatePivotTable TableDestination:="", TableName:= _
        "СводнаяТаблица1", DefaultVersion:=xlPivotTableVersion10
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    ActiveWorkbook.ShowPivotTableFieldList = False
    With ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Cтатья затрат")
        .Orientation = xlRowField
        .Position = 1
        .LayoutBlankLine = True
        .LayoutSubtotalLocation = xlAtTop
        .LayoutForm = xlOutline
    End With
    With ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Счет затрат")
        .Orientation = xlRowField
        .Position = 2
        .Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _
        False, False)
    End With
    With ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Подразделение")
        .Orientation = xlRowField
        .Position = 3
        .LayoutSubtotalLocation = xlAtTop
        .LayoutForm = xlOutline
    End With
    With ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Передел")
        .Orientation = xlRowField
        .Position = 4
    End With
    With ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Месяц")
        .Orientation = xlColumnField
        .Position = 1
    End With
    ActiveSheet.PivotTables("СводнаяТаблица1").AddDataField ActiveSheet.PivotTables _
        ("СводнаяТаблица1").PivotFields("Сумма"), "Количество по полю Сумма", xlCount
    With ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields( _
        "Количество по полю Сумма")
        .Function = xlSum
        .NumberFormat = _
        "_(* #,##0.00_);_(* (#,##0.00);_(* ""-""??_);_(@_)"
    End With
        Columns("C:C").ColumnWidth = 1.29
    ActiveSheet.PivotTables("СводнаяТаблица1").PivotSelect _
        "'Cтатья затрат'", xlDataAndLabel + _
        xlFirstRow, True
    Selection.Font.Bold = True
    ActiveSheet.PivotTables("СводнаяТаблица1").PivotSelect _
        "'Подразделение'", xlDataAndLabel + _
        xlFirstRow, True
    Selection.Font.Bold = True
    ActiveSheet.PivotTables("СводнаяТаблица1").PivotSelect "'Column Grand Total'", _
        xlDataAndLabel, True
    Selection.Font.Bold = True
End Sub

[Serge 007]

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

Существует ли возможность создать сводную таблицу с двух листов в таком виде, как с одного? Если да, то как?

Да.
http://www.planetaexcel.ru/forum.php?thread_id=14556

[kipish_lp]

А подскажите, пожалуйста, как в сводной таблице, которая сделана на основе данных предыдущей сводной таблицы, задать имя данной книги "эта книга" в смысле ActiveWorkbook, а то когда записывается макрос, имя книги прописывается.

 ActiveWorkbook.Worksheets("Лист2").PivotTables("СводнаяТаблица1").PivotCache. _
        CreatePivotTable TableDestination:= _
        "'[Пример объединения данных.xls]Лист2'!R109C3", TableName:= _
        "СводнаяТаблица2", DefaultVersion:=xlPivotTableVersion10

Пробовала писать:

ЭтаКнига = ActiveWorkbook
'
"'[ЭтаКнига]Лист2'!R109C3"

Не дает, и ThisWorkbook не получается. Может потому, что возвращается название данной книги с ковычками? Что можно сделать?