Макрос не получает данные с некоторых интернет-страниц

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

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

Макрос не получает данные с некоторых интернет-страниц (Макросы/Sub)

Revengencer

Дата: Суббота, 23.03.2019, 13:06 | Сообщение № 1

Группа: Проверенные

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

Сообщений: 34

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

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

Excel 2016

Добрый день.

Иногда пользуюсь этим кодом для получения данных с каких-нибудь сайтов.

[vba]

Код

sRequest = "https://www..."
On Error Resume Next
Set oHttp = CreateObject("MSXML2.XMLHTTP")
If Err <> 0 Then
Set oHttp = CreateObject("MSXML.XMLHTTPRequest")
End If
If oHttp Is Nothing Then Exit Sub
oHttp.Open "GET", sRequest, False
oHttp.Send
sReqRes = oHttp.responseText

[/vba]

Например, с этой страницей всё работает хорошо: https://www.belapb.by/rus/about/bank-activity/indexes/data/

Но с некоторых страниц макрос получать данные отказывается. Например, отсюда: https://www.belarusbank.by/ru/33139/33151/33154/10560 (результат sReqRes от подобных страниц - Empty или "")

Как все-таки получить данные с таких страниц?

К сообщению приложен файл: WebPage.xlsb (13.6 Kb)

Ответить

Glen

Дата: Понедельник, 25.03.2019, 08:17 | Сообщение № 2

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

Ранг: Участник

Сообщений: 94

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

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

Excel 2010-16

Подключить модули
Tools->References...->Microsoft Internet Controls
Tools->References...->Microsoft Shell Controls And Automation

К сообщению приложен файл: BR.xls (68.0 Kb)

Пехаль киндриков куравь, пехаль киндриков лузнись.

Ответить

Revengencer

Дата: Понедельник, 25.03.2019, 12:53 | Сообщение № 3

Группа: Проверенные

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

Сообщений: 34

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

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

Excel 2016

Glen, спасибо.

Подключил: моему файлу с моим кодом это не помогло, но, в принципе, ваш код делает то, что нужно.

Но, например, на этой странице https://www.belveb.by/about....a-banka он возвращает не ту таблицу.
Вот можете еще подсказать, как в вашем коде можно осуществлять навигацию по исходному коду веб-страницы?)
Например, к чему можно применить inStr или как можно вытянуть нужную по счету таблицу?

Ответить

Glen

Дата: Вторник, 26.03.2019, 08:05 | Сообщение № 4

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

Ранг: Участник

Сообщений: 94

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

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

Excel 2010-16

Revengencer,
там их несколько.
Вам нужна таблица с идентификатором "ms__id9"

К сообщению приложен файл: BR2.xls (71.5 Kb)

Пехаль киндриков куравь, пехаль киндриков лузнись.

Ответить

Макрос не получает данные с некоторых интернет-страниц (Макросы/Sub)

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