Данные итогов сводной таблицы

[Calvin]

Здраствуйте кважаемые.
Как получить данные итогов сводной таблицы?
Допустим таблица такая:

Фирма1 Фирма2

даты сумма сумма
....... сумма сумма
....... сумма сумма
....... сумма сумма
____итоги итоги

[Amed]

Откуда взялась собственно таблица?
Word, Excel, Access?

[Calvin]

Всё в экселе

[Amed]

Зацени формулу

Код: Выделить всё

=СУММ(B2:B3)

Суммы в этом случае находятся в ячейках В2-В3.

[Calvin]

????

[Calvin]

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

[Amed]

Где расположена эта сводная таблица?
Или надо найти сначала положение шапки таблицы, потом - строки "итоги", а потом просуммировать все, что между ними?

[Calvin]

Ну в принципе положение сводной всегда фиксированное, допустим А1.
Давай я точнее нарисую, чтобы не вводить в заблуждение

........................фирма1......фирма2
Товар1..............масса.........масса
.........................сумма........сумма
Товар2..............масса.........масса
.........................сумма........сумма
Итог масса.........Итог...........Итог
Итог сумма.........Итог...........Итог

Вот мне нужны итоги по массе и по сумме по каждой фирме

[Amed]

Ищем в цикле по столбцу A ячейки с текстом "Итог масса" и "Итог сумма". Сдвигаемся на 1 и 2 ячейки вправо соответственно и читаем данные из таблицы.

Что именно неясно? Как это сделать?

[Calvin]

я хотел это сделать с помощью методов и свойств сводной таблицы....а так понятно

[Calvin]

Вот нашел метод...надо его разрулить

Код: Выделить всё

dd = ActiveSheet.PivotTables("СводнаяТаблица1").GetPivotData("сумма", "Фирмы", "Фирма1")


вот здесь можно определить сумму по "фирма1"...если кто знает,

можно ли сделать что-то наподобии :

Код: Выделить всё

dd = ActiveSheet.PivotTables("СводнаяТаблица1").GetPivotData("сумма", "Фирмы", "Фирма1", "Фирма2")


т.е получить итог сразу по двум фирмам из одного поля "фирмы"

или допустим сделать так:

Код: Выделить всё

dd = ActiveSheet.PivotTables("СводнаяТаблица1").GetPivotData("сумма", "Фирмы")


т.е получить общий итог по полю "фирмы"

[GSerg]

Надо "общий итог" и запрашивать, это тоже имя поля.