как считать данные из XML

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

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

как считать данные из XML (Макросы/Sub)

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

Ответить

doober

Дата: Среда, 14.04.2021, 18:42 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 971

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

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

Excel 2010

Цитата par538, 14.04.2021 в 13:54, в сообщении № 1 (

)

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

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