Асинхронная загрузка веб страниц

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Асинхронная загрузка веб страниц - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

Асинхронная загрузка веб страниц (Excel)

Асинхронная загрузка веб страниц

Ivanius

Дата: Четверг, 30.10.2014, 19:51 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 14

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

Давно хотел поделиться данной недавней разработкой, по моему именно на VBA еще никто не реализовывал и я не находил, хотя искал долго.
Общий принцип следующий:
[vba]

Код

      InicializeAsyncXMLHttp  ' инициализируем переменные
      AsyncXMLHttpServerGet (url)  'отправляем запрос так или так AsyncXMLHttpGet (url)
'запросов может быть сколько уголдно пока не будет оут оф мемори
'ждем пока хоть 1 запрос не отработает
      OldI = PublicI: While PublicI = OldI: DoEvents: Wend  'wait for response
AsyncXMLHttpResponse(OldI) - тут все наши ответы их кол-во совпадает с PublicI
AsyncXMLHttpURL(oldI) - тут все ссылки по которым был запрос индексы совпадают конечно

[/vba]
Модуль написан лично мной классы тоже, идеи взяты с одной забугорной статьи

К сообщению приложен файл: Async.zip (4.7 Kb)

Сообщение отредактировал Ivanius - Четверг, 30.10.2014, 19:52

Ответить

Асинхронная загрузка веб страниц (Excel)

Страница 1 из 1
1