Tutvu OpenOffice XML-vormingus väljundiga. 
Loe kõik eesnimed, perekonnanimed ja sünniaastad Exceli tabelisse.


Sub ooxml()
  Set XMLDoc = CreateObject("MSXML.DomDocument")
  XMLDoc.Load "C:\WINNT\Profiles\auser\My Documents\content.xml"
  Set sisu = XMLDoc.documentElement.selectSingleNode("office:body")
  Set read = sisu.selectSingleNode("table:table").getElementsByTagName("table:table-row")
  For i = 1 To read.Length - 1
    MsgBox read(i).selectSingleNode("table:table-cell").selectSingleNode("text:p").Text
  Next i
End Sub