Уважаемые специалисты! Помогите консультанту по Scala построить отчет в Excel с использованием VBA из Excel + T-SQL. Я сообразительный, честно! Много времени не отниму.
Проблема в следующем:
Задача: вытянуть в ячеечки эксельные просуммированные данные в разрезе измерений учетных. Запросик сделал, он все, как надо суммирует:
---------------------------------
SELECT SUM(GL06004) AS SS
FROM dbo.GL06T808
WHERE (LEFT(GL06001, 6) = '501026' OR LEFT(GL06001, 6) = '501027'
OR LEFT(GL06001, 6) = '501520')
AND (SUBSTRING(GL06001, 7, 2) = 'ST' OR SUBSTRING(GL06001, 7, 2) = 'WA')
GROUP BY GL06004
---------------------------------
В тексте VBA он выглядит, как:
_______________________________________
Sel = "SELECT SUM(GL06004) AS SS " & _
"FROM dbo.GL06T808 " & _
"WHERE (LEFT(GL06001, 6) = '501026' OR LEFT(GL06001, 6) = '501027' " & _
"OR LEFT(GL06001, 6) = '501520') " & _
"AND (SUBSTRING(GL06001, 7, 2) = 'ST' OR SUBSTRING(GL06001, 7, 2) = 'WA') " & _
"GROUP BY GL06004"
______________________________________
Ошибок не возникает, всякие ADO в начале прописаны, проблема в следующем:
В ячейку не могу вставить суммированное значение, которое запрос возвращает. Так как чайник я жуткий, только начал учиться. Надеюсь, благодаря упорству и помощи коллег, на науку времени много не потрачу.
Так вот, можно было вот так, вставить данные:
______________________________________________
Range("C6").Select
'открываем запрос
RST.Open Sel, CN, adOpenKeyset, adLockOptimistic
'вставляем в ячейку
1-й способ
ActiveCell.Value = Trim(RST!(Sum(GL06004)) 'не работает такой способ
2-й способ
ActiveCell.Value = Trim(RST!SS) 'тоже не работает
______________________________________________
Проблема, как раз в том, что поле GL06004 агрегированное, если просто выносить без суммирования:
ActiveCell.Value = Trim(RST!GL06004) - при соответствующем запросе, конечно, то все хорошо (
тестировал лично ), а как с суммированием быть не представляю и очень остро нуждаюсь в консультации.
Заранее благодарю!
на е-mail, получить ответ также был бы признателен
lcoding@mail.ru
