Как через VBA проверить есть ли узел в файле xml

Понедельник, 26 Октября 2015 г. 10:17 + в цитатник

Подскажите, как средствами VBA проверить наличие/отсутствие узла в загружаемом файле xml?


<man>
	<pers1>
		<f>QQQ</f>
		<i>QQQ</i>
		<o>QQQ</o>
		<dr>QQQ</dr><dr>QQQ</dr>
       </pers1>
	<pers2>
		<f>QQQ</f>
		<i>QQQ</i>
		<o>QQQ</o>
       </pers2>
</man>

т.е. в узла в нет дочернего узла , который есть у узла , как программно это проверить? Пробую работать через MSXML2.DOMDocument60.

    Dim xmlDoc As MSXML2.DOMDocument60
    Dim xmlRoot As MSXML2.IXMLDOMNode
    
    Set xmlDoc = New MSXML2.DOMDocument60
    xmlDoc.async = False
    xmlDoc.validateOnParse = False
    
    If xmlDoc.Load("test.xml") = True Then
        if xmlDoc.???("man/pers1/dr") = True then   '!!! Вот сюда, какую функцию применить?
            Set xmlRoot = xmlDoc.selectSingleNode("man/pers1/dr")
        end if
    end if