ADO Обработка данных

[R Dmitry]

Думаю нужная функция если грамотно пользоваться, в основном предназначена для правильно структурированных больших объемов данных
Комментарии и пожелания приветствуются

Public Function ADO_R_Dmitry(ByVal strSql$, ByVal FilePath$, ByVal OutputRange As Range, _
ByVal FieldsName As Boolean, ByVal OutputFieldsName As Boolean)
'==============================================================================
'*Описание функции : Возвращает набор записей Recordset с первой ячейки адреса,
'* указанного диапазона.
'*strSql - Конструкция SQL  запроса.
'* FilePath - Полный путь к файлу включая имя и расширение.
'* OutputRange - адрес ячеки с которой начинается вывод данных.
'* FieldsName - используются или нет заголовки столбцов (True - False)
'* OutputFieldsName - вывод данных с заголовками или без (True - False), _
'* если FieldsName=False, заголовки не выводятся.
'==============================================================================
'* Автор R Dmitry (Дмитрий Русак dg_rusak@mail.ru skype: RDG_Dmitry)          |
'* WM:_R269866874234 U144446690328                                            |
'==============================================================================
Dim sCon As String, FieldName As String
Dim rs As Object, cn  As Object
Set rs = CreateObject("ADODB.Recordset")
Set cn = CreateObject("ADODB.Connection")
If FieldsName Then FieldName = "Yes" Else FieldName = "No"
Select Case CLng(Split(Application.Version, ".")(0))
    Case Is < 12
        sCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FilePath _
          & ";Extended Properties=""Excel 8.0;HDR=" & FieldName & ";IMEX=1"";"
    Case Is >= 12
        sCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & FilePath _
        & ";Extended Properties=""Excel 12.0;HDR=" & FieldName & ";IMEX=1"";"
End Select

cn.Open sCon
If Not cn.State = 1 Then Exit Function
Set rs = cn.Execute(strSql)
If Not FieldsName Then OutputFieldsName = False
 If OutputFieldsName Then
    For i = 0 To rs.Fields.Count - 1
    OutputRange.Offset(0, i) = rs.Fields(i).Name
    Next
    Set OutputRange = OutputRange.Offset(1, 0)
 End If
OutputRange.CopyFromRecordset rs
rs.Close:  cn.Close
Set cn = Nothing: Set rs = Nothing
End Function

пример использования

Sub Test()
'пример использования
strSql2 = "SELECT * FROM [Лист1$]"
Call ADO_R_Dmitry(strSql2, ThisWorkbook.FullName, Sheets(2).[a1], True, True)
Sheets(2).Activate
End Sub

[kuklp]

Все верно. Много вопросов по обработке таблиц в 500000 строк(и больше), да еще и циклы туда прикручивают. SQL запрос тут на порядок технологичней, быстрей. И памяти меньше ест и процессор меньше грузит. Я уже писал где-то, что ИМХО разработчики погорячились, сделав 1000000 строк и 16000 столбцов в табличном процессоре. Такие задачи для СУБД.

[R Dmitry]

Сообщение от kuklp

Все верно. Много вопросов по обработке таблиц в 500000 строк(и больше), да еще и циклы туда прикручивают. SQL запрос тут на порядок технологичней, быстрей. И памяти меньше ест и процессор меньше грузит. Я уже писал где-то, что ИМХО разработчики погорячились, сделав 1000000 строк и 16000 столбцов в табличном процессоре. Такие задачи для СУБД.

я по мере возможности постараюсь еще и набросать основных запросов

Уникальные, группировки, трансформация, подтягиваение данных и т.д.

[kuklp]

Было бы замечательно. И сюда бы неплохо:
http://www.excelworld.ru/forum/3
Я сам ленив все это оформлять, мне частенько Alex_ST в этом помогает(дай ему Бог здоровья):-)

[R Dmitry]

Сообщение от kuklp

Было бы замечательно. И сюда бы неплохо:
http://www.excelworld.ru/forum/3
Я сам ленив все это оформлять, мне частенько Alex_ST в этом помогает(дай ему Бог здоровья):-)

Сергей этож регистрироваться надо , как нибудь доберусь
---------------------------------
Набросал пару запросов
Из списка выбираем запрос и жмем кнопку

Выбор произвольных столбцов
группировка по отделам
группировка по отделам и датам
группировка по отделам и датам + сортировка
продажи по дням
продажи по месяцам
ps////////
по мере наличия времени буду образцы добавлять, если кому нужен сложный запрос, пишите в почту или скайп
зы........ в скором времени добавлю импорт из других типов файлов и баз данных