プロが教えるわが家の防犯対策術!

<名簿>
 <人事データ>
  <名前>田中一郎</名前>
  <出身>コンガ</出身>
  <生年月日>1950.12.1</生年月日>
 </人事データ>
  <名前>小林二郎</名前>
  <出身>ンジャメナ</出身>
  <生年月日>1956.11.5</生年月日>
 <人事データ>
 <人事データ>
   :
   :
</名簿>


というようなXML文書から条件に合致するデータの個数を取得したいのです。

javascriptでは、
 var list = document.documentElement.selectNodes("人事データ/出身[.='コンガ']");
 alert(list.length);
のような記述で可能のようですが、
同じことをVBAで実行するためにはどのように記述すればいいでしょうか。

素人の質問で申し訳ないのですが、よろしくお願いします。

A 回答 (1件)

基本的に同じです。


以下のような感じでいいです。
'---------------------------------------------------------------
Public Sub test()
Dim oXML, list, stat
Set oXML = CreateObject("Microsoft.XMLDOM")
oXML.async = False
stat = oXML.Load("E:\Work\sample\VBScript\WSH\XML\件数\data.xml")
If stat Then
Set list = oXML.documentElement.selectNodes("人事データ/出身[.='コンガ']")
MsgBox list.Length
Else
MsgBox "data.xmlを読み込み時エラーが発生しました"
End If
End Sub
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!