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 "<br>Esimese autor: " & esimeseRaamatuAutor.Text & _
                "<br> Raamatuid kokku: " & esimeneRaamat.parentNode.childNodes.Length

 Set autorid = XMLDoc.getElementsByTagName("AUTOR")
 Debug.Print "<br>Autoreid on " & autorid.Length & ", neist esimene " & autorid(0).Text
 Debug.Print "<br>Kokku on elemente " & XMLDoc.getElementsByTagName("*").Length
 Debug.Print "<br>Teise raamatu autor on " & teineRaamat.selectSingleNode("AUTOR").Text
End Sub

