ear (Автор тем)

Как отловить ошибку в MSXML2.XMLHTTP60, Запрос через браузер (любой) к вебстранице загружает ее без проблем. Аналогичный запрос через VBA возвращает код другой страницы.

ear

Пользователь

Сообщений: 6 Регистрация: 12.04.2017

12.04.2017 11:36:35

Запрос через браузер (любой) к вебстранице загружает ее без проблем. Аналогичный запрос через VBA возвращает код другой страницы.

Вот фрагмент кода запроса:

Код

                Set xhr = New MSXML2.XMLHTTP60
                    With xhr
                            .Open "GET", url$, False
                            .send
                        If .readyState = 4 And .status = 200 Then
                            Set doc = New MSHTML.HTMLDocument
                            doc.body.innerHTML = .responseText
                        Else
                            MsgBox "Error" & vbNewLine & "Ready state: " & .readyState & _
                            vbNewLine & "HTTP request status: " & .status
                        End If
                    End With

запрашиваемая страница "https://f.ua/amica/optima-14p.html"
страница в ответе "https://f.ua/amica/optima-18.html"
копипаст через браузер https://yadi.sk/i/_YG_ksXp3GtVnm дает верный ответ без редиректа

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

Перейти