Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Сохранить в XML содержимое HTTP запроса с помощью метода responseXML в MSXML2.XMLHTTP
 
Добрый день, дорогие друзья!
Вопрос такой!
При хотелось бы получить сохранение в файл xml содержимое веб запроса
В формате текста responseText все гуд, но с методом responseXML - не могу разобраться
Остановился пока на этом. В файл xml отказываются попадать данные :oops: . Ругается на  XMLHTTP.responseXML
Кто сталкивался?
Прошу вашей помощи. Заранее благодарен за советы!
Код
Sub Scrub()
Dim XMLHTTP As Object
Dim XML As Object
Dim URL$, Text$

URL = "https://www.planetaexcel.ru/"
Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")

XMLHTTP.Open "GET", URL, False
XMLHTTP.SEND

If XMLHTTP.Status = 200 Then
    'Text = XMLHTTP.responseText
    
    Set XML = CreateObject("MSXML2.DOMDocument")
    XML.appendChild XML.createProcessingInstruction("xml", "version='1.0' encoding='utf-8'")
    XML = XMLHTTP.responseXML
    XML.Save
    
    'Debug.Print Text
Else
    MsgBox "Нет подключения..."
End If
Set XMLHTTP = Nothing
End Sub
Изменено: vlad000 - 4 Дек 2018 12:31:48
Страницы: 1
Читают тему (гостей: 1)
Наверх