VBA 如果存在则从第一个节点开始 - 使用 If Is Nothing

Question

如何从第一个到最后一个递增每个父节点并应用：

For Each n In XMLFile.SelectNodes("/catalog/book")
    If XMLFile.SelectSingleNode("/catalog/book/banana") Is Nothing Then
        MsgBox ("banana not here")
    Else
        MsgBox ("banana found")
    End If
Next

香蕉在第一本书中不存在：

?xml version="1.0"?>
<catalog>
<book id="Adventure">
   <author>Ralls, Kim</author>
   <title>XML Developer's Guide</title>
   <price>44.95</price>
</book>
<book id="Adventure">
   <author>Ralls, Kim</author>
   <title>Midnight Rain</title>
   <price>5.95</price>
   <banana>ring</banana>
</book>
<book id="Adventure">
   <author>Ralls, Kim</author>
   <title>Mist</title>
   <price>15.95</price>
   <banana>ring</banana>
</book>
<book id="Mystery">
   <author>Ralls, Kim</author>
   <title>Some Mystery Book</title>
   <price>9.95</price>
   <banana>ring</banana>
</book>
</catalog>

电流输出： “发现香蕉” “发现香蕉” “发现香蕉” “发现香蕉”

Answer 1

您只是从这里的顶级节点再次重复搜索...

If XMLFile.SelectSingleNode("/catalog/book/banana") Is Nothing Then

...所以你总是得到第一个香蕉节点。您需要在“n”上操作，而不是“XMLFile”：

If n.SelectSingleNode("banana") Is Nothing Then

请记住，您正在遍历层次结构。