selectSingleNode 取得方法いろいろ
ちょっとメモ
Dim tempE, targetE As IXMLDOMElement Dim temStr1, temStr2, temStr3 As String Set targetE = tempE.selectSingleNode("title[text()='" & temStr1 & "']") Set targetE = tempE.selectSingleNode("book[title/text()='" & temStr1 & "']") Set targetE = tempE.selectSingleNode("book[@Author='" & temStr2 & "' or @Author='" & temStr3 & "']")