Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как вытянуть значение подузла из XML (Макросы/Sub)
Как вытянуть значение подузла из XML
Udik Дата: Суббота, 19.11.2016, 16:03 | Сообщение № 1
Группа: Друзья
Ранг: Старожил
Сообщений: 1201
Репутация: 152 ±
Замечаний: 0% ±

Excel 2013
Имеется сайт, выдающий простенький 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.


вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com


Сообщение отредактировал Udik - Суббота, 19.11.2016, 16:06
 
Ответить
СообщениеИмеется сайт, выдающий простенький 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.

Автор - Udik
Дата добавления - 19.11.2016 в 16:03
Udik Дата: Суббота, 19.11.2016, 16:14 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1201
Репутация: 152 ±
Замечаний: 0% ±

Excel 2013
Упс, уже нашёл
[vba]
Код

Set docNode = docXML.DocumentElement.SelectNodes("//datalist/region")

[/vba]


вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com
 
Ответить
СообщениеУпс, уже нашёл
[vba]
Код

Set docNode = docXML.DocumentElement.SelectNodes("//datalist/region")

[/vba]

Автор - Udik
Дата добавления - 19.11.2016 в 16:14
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как вытянуть значение подузла из XML (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!