Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос не получает данные с некоторых интернет-страниц (Макросы/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)
 
Ответить
СообщениеДобрый день.

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

[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 или "")

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

Автор - Revengencer
Дата добавления - 23.03.2019 в 13:06
Glen Дата: Понедельник, 25.03.2019, 08:17 | Сообщение № 2
Группа: Пользователи
Ранг: Участник
Сообщений: 58
Репутация: 7 ±
Замечаний: 0% ±

Excel 2010
Подключить модули
Tools->References...->Microsoft Internet Controls
Tools->References...->Microsoft Shell Controls And Automation
К сообщению приложен файл: BR.xls(68.0 Kb)


Самурай без меча подобен самураю с мечом, но только без меча.
 
Ответить
СообщениеПодключить модули
Tools->References...->Microsoft Internet Controls
Tools->References...->Microsoft Shell Controls And Automation

Автор - Glen
Дата добавления - 25.03.2019 в 08:17
Revengencer Дата: Понедельник, 25.03.2019, 12:53 | Сообщение № 3
Группа: Проверенные
Ранг: Новичок
Сообщений: 34
Репутация: 13 ±
Замечаний: 0% ±

Excel 2016
Glen, спасибо.

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

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

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

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

Автор - Revengencer
Дата добавления - 25.03.2019 в 12:53
Glen Дата: Вторник, 26.03.2019, 08:05 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 58
Репутация: 7 ±
Замечаний: 0% ±

Excel 2010
Revengencer,
там их несколько.
Вам нужна таблица с идентификатором "ms__id9"
К сообщению приложен файл: BR2.xls(71.5 Kb)


Самурай без меча подобен самураю с мечом, но только без меча.
 
Ответить
СообщениеRevengencer,
там их несколько.
Вам нужна таблица с идентификатором "ms__id9"

Автор - Glen
Дата добавления - 26.03.2019 в 08:05
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос не получает данные с некоторых интернет-страниц (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!