|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
06.09.2011, 14:50 | #21 |
Форумчанин
Регистрация: 07.03.2010
Сообщений: 796
|
Конечно медленнее чем у Николая
но не на много и если данных будет очень много то может и обогнать (наверное) как всегда без словарей и массивов, только ADO
Логика?!.... она где то рядом... E_mail: dg_rusak@mail.ru Если спасибо мало: Яндекс . Деньги - 41001731366021 WM R269866874234
|
06.09.2011, 18:20 | #22 |
Форумчанин
Регистрация: 25.04.2010
Сообщений: 616
|
Дмитрий, почему у меня на работает ваша ф-ция. Из разных примеров на разных форумах пытался запустить - останавливается на cn.Open sCon. Якобы не удается найти указанный поставщик (именно так, не "указанного поставщика"). Может ссылки какие подключить (или отключить)?
Ексель 2010, запускаю из сохраненного на диск файла, кнопочку нажимаю аккуратно |
06.09.2011, 18:30 | #23 | |
Форумчанин
Регистрация: 07.03.2010
Сообщений: 796
|
Цитата:
Использовал позднее связывание поэтому подключать дополнительно ничего не надо. других причин поидее не должно быть, сам юзаю 2010 офис
Логика?!.... она где то рядом... E_mail: dg_rusak@mail.ru Если спасибо мало: Яндекс . Деньги - 41001731366021 WM R269866874234
|
|
06.09.2011, 18:37 | #24 |
Участник клуба
Регистрация: 02.05.2010
Сообщений: 1,390
|
Проверил в 3,7 и 10 версиях. Все работает. Коль, мож у тебя msQuery не подключен?
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728 |
06.09.2011, 18:40 | #25 |
Форумчанин
Регистрация: 07.03.2010
Сообщений: 796
|
Да Николай если еще стоит чистый 14 офис, возможно не находит библиотеку 12.0
тогда просто замени на 14.0 или весь кейс Код:
Отпишись пожалуйста заработает или нет, и поясни какая операционка стоит ? может Win7X64 С уважением, Дмитрий.
Логика?!.... она где то рядом... E_mail: dg_rusak@mail.ru Если спасибо мало: Яндекс . Деньги - 41001731366021 WM R269866874234
Последний раз редактировалось R Dmitry; 06.09.2011 в 18:47. |
06.09.2011, 18:46 | #26 |
Участник клуба
Регистрация: 02.05.2010
Сообщений: 1,390
|
Дим, она работает медленней из-за того, что открывает свой же файл в режиме readonly. Кстати, поменял строку так:
Call ADO_R_Dmitry(strSql2, ThisWorkbook.Name, Sheets(2).[a1], True, True) - работает.
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728 |
06.09.2011, 19:01 | #27 | |
Форумчанин
Регистрация: 07.03.2010
Сообщений: 796
|
Цитата:
осмелюсь предположить CopyFromRecordset транспонирует рекордсет перед выгрузкой на лист соответсвенно из за этого и тормозит
Логика?!.... она где то рядом... E_mail: dg_rusak@mail.ru Если спасибо мало: Яндекс . Деньги - 41001731366021 WM R269866874234
|
|
06.09.2011, 19:17 | #28 | |
Форумчанин
Регистрация: 25.04.2010
Сообщений: 616
|
Цитата:
А msQuery это что и куда? (Вообще ламер какой-то, да?) Кстати, и сам писал что-то подобное, и все, помнится, работало. Нашел старый примерчик, теперь не фурычит. В системе может что случилось? Последний раз редактировалось nilem; 06.09.2011 в 19:23. |
|
06.09.2011, 19:34 | #29 |
Участник клуба
Регистрация: 02.05.2010
Сообщений: 1,390
|
Попробуй так запустить. См. скрин. "(Вообще ламер какой-то, да?)" - всем бы такими ламерами быть:-).
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728 Последний раз редактировалось kuklp; 06.09.2011 в 19:36. |
06.09.2011, 19:58 | #30 |
Форумчанин
Регистрация: 25.04.2010
Сообщений: 616
|
Сергей, перепробовал все источники - все работает.
Опытным путем обнаружил - ф-ция Дмитрия работает с такой строкой подкл-я: 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, - не хочет. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
убрать дубликаты | Nasten'ka7 | Microsoft Office Excel | 1 | 21.03.2011 18:49 |
подсчёт суммы, если меняется количество слагаемых | kaa1977 | Microsoft Office Excel | 1 | 17.03.2011 17:52 |
окрасить дубликаты | Romuald | Microsoft Office Excel | 5 | 07.03.2011 16:33 |