Использование формулы промежуточного итога в VBA для Excel

Question

У меня есть процедура VBA, которая извлекает некоторые данные из базы данных, выгружает ее в рабочий лист, добавляет строку заголовка, преобразует все это в таблицу. Этот бит работает нормально. Возвращаемые данные имеют неопределенное количество строк. Что мне нужно сделать, чтобы добавить итоговую строку в конце. Я искал учет неизвестной длины таблицы, используя функцию промежуточного итога: например, SUBTOTAL(109,[5 year total]).

Проблема я получаю

Run-time error '1004': Application-defined or object-defined error

Этот код работает

Range(upperleft).End(xlDown).Offset(1, 6).Value = "Test cash 5 year total"

где, как этот код бросает ошибку

Range(upperleft).End(xlDown).Offset(1, 6).Formula = "=SUBTOTAL(109,[cash: 5 year total])"

Переменная upperleft - верхняя левая ячейка таблицы. Кажется, что-то делать со строкой я использую для формулы/значение, так как если я пытаюсь установить формулу значения, как это

Range(upperleft).End(xlDown).Offset(1, 6).Value= "=SUBTOTAL(109,[cash: 5 year total])"

я получаю ту же ошибку

Answer 1

The формула у вас есть должны работать до тех пор, как она находится в Totals Роу, который является частью таблицы, но если нет, то вам необходимо включить имя таблицы:

=SUBTOTAL(109,Table1[cash: 5 year total]) 

, например