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 & "']")