XML | Excel VBA | A Beginner's Guide to the XML DOM

[kot_papiroskin]

Оригинал взят у chevalry в XML | Excel VBA | A Beginner's Guide to the XML DOM
Полезная вводная статья о том, как загружать XML в Excel-VBA:
A Beginner's Guide to the XML DOM

P.S. А это - еще одна статья на форуме, в дополнение к первой:
VBA. Импорт XML в Excel

Результатом стала простая тестовая программа в духе Hello world:

Sub Main()

Dim xmlDoc As MSXML2.DOMDocument
Dim xmlNodes As IXMLDOMNodeList
Dim xmlNode As IXMLDOMNode

Set xmlDoc = New MSXML2.DOMDocument
Dim source
source = ThisWorkbook.Path & "\test.xml"
resp = xmlDoc.Load(source)
If Not resp Then
cdd = xmlDoc.parseError.ErrorCode
rsn = xmlDoc.parseError.reason
lnn = xmlDoc.parseError.Line
pss = xmlDoc.parseError.linepos
src = xmlDoc.parseError.srcText
MsgBox cdd & " | " & rsn & " | " & lnn & " | " & pss & " | " & src
Else
Set xmlNodes = xmlDoc.SelectNodes("//child")
For Each xmlNode In xmlNodes
MsgBox xmlNode.Text
Next
End If

End Sub

Файл "test.xml":

xml version="1.0" encoding="utf-8"?>

Hello, world!child>
root>



Данная программа реализована на VBA. Чтобы она заработала, не забудьте подключить библиотеку MSXML2. Для этого в редакторе MS VBA выберите Tools > References и найдите в списке Microsoft XML, v.5.0. Отметьте строку галочкой, нажмите ОК.