SQL запрос к файлу Excel через ADO. - VB

Узнай цену своей работы

Формулировка задачи:

Добрый день!Есть вот такая табличка в excel:
Подскажите, как сделать SQL запрос через ADO Connection,чтобы получить сумму по каждому счету.(P.S. в таблице 50000 строк).
Вот такой должен быть результат:

Решение задачи: «SQL запрос к файлу Excel через ADO.»

textual
Листинг программы
Dim cn As Object, rs As Object
Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + ThisWorkbook.FullName + ";Extended Properties='Excel 8.0'"
rs.Open "select NUM, Sum(SUM) from [Лист2$] group by NUM order by Sum(SUM) DESC", cn, 3
Cells(1, 5).CopyFromRecordset rs
rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 3.857 из 5
Похожие ответы