Sub loeXML()
Set XMLDoc = CreateObject("MSXML.DomDocument")
XMLDoc.Load "c:\kodu\jaagup\vba\raamatud1.xml" 'failinimi
Debug.Print "Teise raamatu pealkiri: " & _
XMLDoc.documentElement.childNodes(1).childNodes(0).Text
Set teineRaamat = XMLDoc.documentElement.childNodes(1)
Set esimeneRaamat = teineRaamat.previousSibling
Set esimeseRaamatuAutor = esimeneRaamat.childNodes(1)
Debug.Print "
Esimese autor: " & esimeseRaamatuAutor.Text & _
"
Raamatuid kokku: " & esimeneRaamat.parentNode.childNodes.Length
Set autorid = XMLDoc.getElementsByTagName("AUTOR")
Debug.Print "
Autoreid on " & autorid.Length & ", neist esimene " & autorid(0).Text
Debug.Print "
Kokku on elemente " & XMLDoc.getElementsByTagName("*").Length
Debug.Print "
Teise raamatu autor on " & teineRaamat.selectSingleNode("AUTOR").Text
End Sub