vba: загрузка html-страницы с элементом ajax / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / vba: загрузка html-страницы с элементом ajax

3 сообщений из 3, страница 1 из 1

vba: загрузка html-страницы с элементом ajax

#38636020

deadmorozzz

Гость

Всем привет!
Пытаюсь загрузить с помощью макроса вот такую страницу:
http://ria.ru/politics/
Внизу имеется кнопка "еще 20 материалов", которая дает доступ к новым ссылкам.
Однако стандартный способ:
Function download_web_page(addr$) As String
Set IE = CreateObject("InternetExplorer.Application"): On Error Resume Next
IE.Navigate addr$
While IE.busy Or (IE.readyState <> 3): DoEvents: Wend
Set IEDoc = IE.Document
IEDoc.getElementById("a.list_pagination_next").Click
While IE.busy Or (IE.readyState <> 3): DoEvents: Wend
Set IEDoc = IE.Document
txt$ = IE.Document.body.innerText
IE.Quit: Set IE = Nothing
download_web_page = txt
End Function

не дает ожидаемого результата - собственно, id в выражении [IEDoc.getElementById("a.list_pagination_next").Click] определить никак не могу. Поможите кто может, как загрузить подобную страницу?

...

Рейтинг:

0 / 0

07.05.2014, 21:00

| Ответить | Цитировать | Написать

vba: загрузка html-страницы с элементом ajax

#38636102

скукотища

Гость

deadmorozzz,
у нужного Вам элемента (ссылки) нет ИД. Как вариант - перебрать все ссылки в документе и выбрать по классу искомую.

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.

Function download_web_page(addr$) As String
  Set IE = CreateObject("InternetExplorer.Application"): On Error Resume Next
  IE.Navigate addr$
  While IE.busy Or (IE.readyState <> 3): DoEvents: Wend
  Set IEDoc = IE.Document
  'IEDoc.getElementById("a.list_pagination_next").Click
  GetNextPageA(IEDoc).Click
  While IE.busy Or (IE.readyState <> 3): DoEvents: Wend
  Set IEDoc = IE.Document
  txt$ = IE.Document.body.innerText
  IE.Quit: Set IE = Nothing
  download_web_page = txt
End Function

' --------------------------------------------
Function GetNextPageA(doc)
  For Each a In doc.getElementsByTagName("A")
    If "list_pagination_next" = a.className Then
      Set GetNextPageA = a
      Exit For
    End If
  Next
End Function

...

Рейтинг:

0 / 0

08.05.2014, 00:42

| Ответить | Цитировать | Написать

vba: загрузка html-страницы с элементом ajax

#38636234

deadmorozzz

Гость

Работает. Потрясающе. Спасибо!

...

Рейтинг:

0 / 0

08.05.2014, 09:34

| Ответить | Цитировать | Написать

3 сообщений из 3, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / vba: загрузка html-страницы с элементом ajax

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&gotonew=1&tid=2156385]:	0ms
get settings:	11ms
get forum list:	13ms
check forum access:	4ms
check topic access:	4ms
track hit:	60ms
get topic data:	11ms
get first new msg:	8ms
get forum data:	3ms
get page messages:	38ms
get tp. blocked users:	1ms
others:	293ms

total:	446ms