【VBA】xmlファイルを読み込む

◆読み込むxmlファイル

<?xml version="1.0" encoding="Shift-Jis" ?>
<venture>
  <company>
    <name>ドコモ</name>
    <url>http://www.nttdocomo.co.jp/</url>
  </company>
  <company>
    <name>ソフトバンク</name>
    <url>http://www.softbank.co.jp/</url>
  </company>
</venture>

◆ソース

Dim elem_venture As Object
Dim elem_company As Object
Dim elem_name As Object
Dim elem_url As Object
 
Set Xml = CreateObject("MSXML2.DOMDocument")
 
'読み込み
Xml.Load sample.xml
 
Set elem_venture = Xml.getElementsByTagName("venture").Item(0)
 
For Each elem_company In elem_venture.getElementsByTagName("company")
    Set elem_name = elem_company.getElementsByTagName("name").Item(0)
    Set elem_url = elem_company.getElementsByTagName("url").Item(0)
Next elem_company