Убрать дубликаты и подсчёт суммы по каждому уникальному значению.

[R Dmitry]

Конечно медленнее чем у Николая
но не на много и если данных будет очень много то может и обогнать (наверное)
как всегда без словарей и массивов, только ADO

[nilem]

Дмитрий, почему у меня на работает ваша ф-ция. Из разных примеров на разных форумах пытался запустить - останавливается на cn.Open sCon. Якобы не удается найти указанный поставщик (именно так, не "указанного поставщика"). Может ссылки какие подключить (или отключить)?
Ексель 2010, запускаю из сохраненного на диск файла, кнопочку нажимаю аккуратно

[R Dmitry]

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

Дмитрий, почему у меня на работает ваша ф-ция. Из разных примеров на разных форумах пытался запустить - останавливается на cn.Open sCon. Якобы не удается найти указанный поставщик (именно так, не "указанного поставщика"). Может ссылки какие подключить (или отключить)?
Ексель 2010, запускаю из сохраненного на диск файла, кнопочку нажимаю аккуратно

Николай , возможно из Tempa запускаем, а надо сохранять на физический диск.
Использовал позднее связывание поэтому подключать дополнительно ничего не надо.
других причин поидее не должно быть, сам юзаю 2010 офис

[kuklp]

Проверил в 3,7 и 10 версиях. Все работает. Коль, мож у тебя msQuery не подключен?

[R Dmitry]

Да Николай если еще стоит чистый 14 офис, возможно не находит библиотеку 12.0
тогда просто замени на 14.0 или весь кейс

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 12
        sCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & FilePath _
        & ";Extended Properties=""Excel 12.0;HDR=" & FieldName & ";IMEX=1"";"
    Case 14
        sCon = "Provider=Microsoft.ACE.OLEDB.14.0;Data Source=" & FilePath _
        & ";Extended Properties=""Excel 14.0;HDR=" & FieldName & ";IMEX=1"";"
End Select

Отпишись пожалуйста заработает или нет, и поясни какая операционка стоит ? может Win7X64
С уважением, Дмитрий.

[kuklp]

Дим, она работает медленней из-за того, что открывает свой же файл в режиме readonly. Кстати, поменял строку так:
Call ADO_R_Dmitry(strSql2, ThisWorkbook.Name, Sheets(2).[a1], True, True) - работает.

[R Dmitry]

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

Дим, она работает медленней из-за того, что открывает свой же файл в режиме readonly. Кстати, поменял строку так:
Call ADO_R_Dmitry(strSql2, ThisWorkbook.Name, Sheets(2).[a1], True, True) - работает.

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

осмелюсь предположить CopyFromRecordset транспонирует рекордсет перед выгрузкой на лист

соответсвенно из за этого и тормозит

[nilem]

Сообщение от R Dmitry

Отпишись пожалуйста заработает или нет, и поясни какая операционка стоит ? может Win7X64
С уважением, Дмитрий.

Все равно не хочет работать. ОС 7 макс х32.
А msQuery это что и куда?
(Вообще ламер какой-то, да?)

Кстати, и сам писал что-то подобное, и все, помнится, работало. Нашел старый примерчик, теперь не фурычит. В системе может что случилось?

[kuklp]

Попробуй так запустить. См. скрин. "(Вообще ламер какой-то, да?)" - всем бы такими ламерами быть:-).

[nilem]

Сергей, перепробовал все источники - все работает.
Опытным путем обнаружил - ф-ция Дмитрия работает с такой строкой подкл-я:
sCon = "Provider=Microsoft.Jet.OLEDB.4.0;D ata Source=" & FilePath _
& ";Extended Properties=""Excel 8.0;HDR=" & FieldName & ";IMEX=1"";"
А с этим: Provider=Microsoft.ACE.OLEDB.12.0, - не хочет.