... получить лишь несколько чисел (суммы) для каждого из вариантов фильтров. Для реализации выбрал следующую схему: Данные на листе, делаем ADODB.Connection Set oBase = CreateObject("ADODB.Connection") oBase.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & _ ";Extended Properties='Excel 8.0;HDR=YES';" ...