Добрый день, дорогие друзья!
Вопрос такой!
При хотелось бы получить сохранение в файл xml содержимое веб запроса
В формате текста responseText все гуд, но с методом responseXML - не могу разобраться
Остановился пока на этом. В файл xml отказываются попадать данные
. Ругается на XMLHTTP.responseXML
Кто сталкивался?
Прошу вашей помощи. Заранее благодарен за советы!
Вопрос такой!
При хотелось бы получить сохранение в файл xml содержимое веб запроса
В формате текста responseText все гуд, но с методом responseXML - не могу разобраться
Остановился пока на этом. В файл xml отказываются попадать данные
. Ругается на 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
|
Изменено: - 04.12.2018 12:31:48
