Как вытянуть значение подузла из XML

Вход

Регистрация

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

= Мир MS Excel/Как вытянуть значение подузла из XML - Мир MS Excel

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как вытянуть значение подузла из XML (Макросы/Sub)

Как вытянуть значение подузла из XML

Udik

Дата: Суббота, 19.11.2016, 16:03 | Сообщение № 1

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

Ранг: Старожил

Сообщений: 1588

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

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

Excel 2016 х 64

Имеется сайт, выдающий простенький XML. Из него надо вытянуть определенные данные. У меня никак это не выходит.
[vba]

Код

Public Sub getXML()
Dim docXML As Object, docNodes As Object, docNode As Object
Dim strURL As String

strURL = "http://phoneverify.org/api.pl?&id=phoneinfo&email=udik68@yandex.ru&password=eb020fdc55705e23e515ebaa0ae4c8e8&phone=78486231250"

Set docXML = CreateObject("MSXML2.DOMDocument")
docXML.Load (strURL)
Set docNodes = docXML.SelectNodes("//datalist")

'???

End Sub

[/vba]

текст XML

Цитата

<?xml version="1.0" encoding="UTF-8"?>
<datalist><region_code>0</region_code><status>1</status><region>г. Жигулевск|Самарская обл.</region><end>6231999</end><operator>ПАО "Ростелеком"</operator><last_upd>16.06.2016</last_upd><city>г. Жигулевск|Самарская обл.</city><limit>0</limit><type>8</type><prefix>848</prefix><start>6220000</start></datalist>

нужно получить значение поля region.