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

Вход

Регистрация

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

 

= Мир MS Excel/как считать данные из XML - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » как считать данные из XML (Макросы/Sub)
как считать данные из XML
par538 Дата: Среда, 14.04.2021, 13:54 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Уважаемые форумчане, пытаюсь парсить сайт. Использую
[vba]
Код
Function GetHTTPR() As String
    Dim xmlhttp As Object
    Set xmlhttp = CreateObject("MSXML2.XMLHTTP")
    Dim sURL As String
    sURL = "https://www.marketwatch.com/investing/stock/INTC/financials/cash-flow" ' Читается
    'sURL = "https://finbox.com/NASDAQGS:INTC/models/dcf-growth-exit-5yr" ' Не читается
    xmlhttp.Open "GET", sURL, False
    xmlhttp.Send
    If xmlhttp.Status = 200 Then
        GetHTTPR = xmlhttp.ResponseText
    Else
        MsgBox "Отсутствует соединение"
    End If
    Set xmlhttp = Nothing
End Function
[/vba]
по первому URL вытянуть данные из ответа удаётся без проблем, а по второму (закоментировано) возвращается ответ, с которым не могу разобраться.
Пробовал добавлять заголовки - не помогает
Для того, чтобы понять в каком направлении копать знаний не хватает. Прошу помочь.


Сообщение отредактировал par538 - Среда, 14.04.2021, 13:56
 
Ответить
СообщениеУважаемые форумчане, пытаюсь парсить сайт. Использую
[vba]
Код
Function GetHTTPR() As String
    Dim xmlhttp As Object
    Set xmlhttp = CreateObject("MSXML2.XMLHTTP")
    Dim sURL As String
    sURL = "https://www.marketwatch.com/investing/stock/INTC/financials/cash-flow" ' Читается
    'sURL = "https://finbox.com/NASDAQGS:INTC/models/dcf-growth-exit-5yr" ' Не читается
    xmlhttp.Open "GET", sURL, False
    xmlhttp.Send
    If xmlhttp.Status = 200 Then
        GetHTTPR = xmlhttp.ResponseText
    Else
        MsgBox "Отсутствует соединение"
    End If
    Set xmlhttp = Nothing
End Function
[/vba]
по первому URL вытянуть данные из ответа удаётся без проблем, а по второму (закоментировано) возвращается ответ, с которым не могу разобраться.
Пробовал добавлять заголовки - не помогает
Для того, чтобы понять в каком направлении копать знаний не хватает. Прошу помочь.

Автор - par538
Дата добавления - 14.04.2021 в 13:54
doober Дата: Среда, 14.04.2021, 18:42 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 799
Репутация: 300 ±
Замечаний: 0% ±

Excel 2010
в каком направлении копать

Работайте через IE.Запросами Вы не получите данных, потому, что не просмотрели обмен с сервером и не поняли как эти данные получить.
Наполнение страницы идет скриптами, нужные post запросы идут на один урл, но с разными параметрами. Ответ json.








Сообщение отредактировал doober - Среда, 14.04.2021, 18:44
 
Ответить
Сообщение
в каком направлении копать

Работайте через IE.Запросами Вы не получите данных, потому, что не просмотрели обмен с сервером и не поняли как эти данные получить.
Наполнение страницы идет скриптами, нужные post запросы идут на один урл, но с разными параметрами. Ответ json.





Автор - doober
Дата добавления - 14.04.2021 в 18:42
par538 Дата: Четверг, 15.04.2021, 07:34 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

doober, спасибо! буду разбираться
 
Ответить
Сообщениеdoober, спасибо! буду разбираться

Автор - par538
Дата добавления - 15.04.2021 в 07:34
par538 Дата: Четверг, 15.04.2021, 13:47 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

doober, вывод через IE сделал hands , а с XML по возможности тоже разберусь... ещё раз спасибо!


Сообщение отредактировал par538 - Четверг, 15.04.2021, 13:48
 
Ответить
Сообщениеdoober, вывод через IE сделал hands , а с XML по возможности тоже разберусь... ещё раз спасибо!

Автор - par538
Дата добавления - 15.04.2021 в 13:47
Мир MS Excel » Вопросы и решения » Вопросы по VBA » как считать данные из XML (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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