Это добавит перемеююый рабочий лист (объявите ее как рабочий лист на верхней части), с названным «читателем» где в клетках A1 к A3 ваши данные написаны вниз потребителем и после этого использует значения клеток в шнуре.
'Объявите ReadingSheet
Комплект прочитал = рабочий лист («читатель»)
sSql = «отборная определенная компания, accounting_year, учет, account_desc,» & _
«сумма (amount_balance) сверх (ПЕРЕГОРОДКА заказом учета предшествовать ряда учета unbounded) как кумулятивно» & _
«от accounting_balance_auth» & _
«где компания = «» & ReadS.Range («A1») &»» «& _
«и accounting_year = «» & ReadS.Range («A2») &»» «& _
«и accounting_period <> «заказ 3»