Здравствуйте. Решаю такую задачу: в подчиненную форму БД на Аксесс выгружается результат запроса. Необходимо этот результат выгрузить в Excel c подсчетом промежуточных итогов. Как я это делаю:
1) создаю переменную Рекордсет:

Dim ExportData As DAO.Recordset
Set ExportData = Me.FactOfJobsForPeriod.Form.Recordset

2)экспортирую содержимое рекордсета в Excel:

WS.Range("D8").CopyFromRecordset ExportData

3) Определяю номер последней заполненной на итоговом листе строки:

Dim LastRow As Integer
LastRow = WS.usedRange.Row + WS.usedRange.Rows.Count - 1

4)пытаюсь посчитать формулу расчета промежуточных итогов:

WS.Cells(LastRow + 2, 2).Formula = "=SUBTOTAL(109;O8:O" & LastRow & ")"

вот последний пункт не работает -выдается ошибка:1004: Application defined or object defined error
в чем ошибка происходит? в столбце "О" числовые данные...

http://www.sql.ru/forum/1104292/ne-rabotaet-funkciya-subtotal-v-excelpri-vygruzke-iz-access