Excel VBA中的XML解析没有找到我的节点

Question

我有一个XML文件需要解析。该文件包含有关潜水的信息。这是很简单的结构：

<Dive xmlns:i="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://schemas.datacontract.org/2004/07/Suunto.Diving.Dal"> 
    <Algorithm>1</Algorithm> 
    <AltitudeMode>0</AltitudeMode> 
    <AscentTime i:nil="true"/> 
    <AvgDepth>9.36</AvgDepth> 
    <Boat i:nil="true"/> 
    <BottomTemperature>23</BottomTemperature> 
    <BottomTime i:nil="true"/> 
    <CnsEnd>1</CnsEnd> 
    <CnsStart>0</CnsStart> 
    <CylinderVolume>12</CylinderVolume> 
    <CylinderWorkPressure>232000</CylinderWorkPressure> 
    <Deleted i:nil="true"/> 
    <DeltaPressure i:nil="true"/> 
    <DesaturationTime i:nil="true"/> 
    <DiveMixtures> 
     <DiveMixture> 
     <DiveGasChanges/> 
     <EndPressure>47300</EndPressure> 
     <Helium>0</Helium> 
     <Name i:nil="true"/> 
     <Oxygen>21</Oxygen> 
     <PO2>0</PO2> 
     <Size>0</Size> 
     <StartPressure>208100</StartPressure> 
     <TransmitterId i:nil="true"/> 
     <Type>4</Type> 
    </DiveMixture> 
</DiveMixtures> 
<DiveNumberInSerie>2</DiveNumberInSerie> 
<DiveSamples> 
    <Dive.Sample> 
     <AveragedTemperature>26</AveragedTemperature> 
     <Ceiling i:nil="true"/> 
     <Depth>1.23</Depth> 
     <GasTime i:nil="true"/> 
     <Heading i:nil="true"/> 
     <Pressure>208100</Pressure> 
     <SacRate>27.0936737</SacRate> 
     <Temperature>26</Temperature> 
     <Time>0</Time> 
    </Dive.Sample> 
    <Dive.Sample> 
     <AveragedTemperature>26</AveragedTemperature> 
     <Ceiling i:nil="true"/> 
     <Depth>3.29</Depth> 
     <GasTime i:nil="true"/> 
     <Heading i:nil="true"/> 
     <Pressure>206800</Pressure> 
     <SacRate>28.29174</SacRate> 
     <Temperature>26</Temperature> 
     <Time>20</Time> 
    </Dive.Sample> 
</DiveSamples> 
<DiveTags/> 
<DiveTime i:nil="true"/> 
<DivingDaysInRow i:nil="true"/> 
<Duration>3595</Duration> 
<EndPressure>47300</EndPressure> 
<EndTemperature>25</EndTemperature> 
</Dive> 

现在我要像提取时间信息，AvgDepth等。此外，我需要每个“Dive.Sample”容器如在Excel工作表中的一行。假设我想在Sheet1的A1和B1以及Sheet2中的所有“Dive.Sample”中放置duration和AvgDepth，而每行代表一个“Dive.Sample”容器。我的VBA代码现在看起来像这样（我只是试图让AvgDepth）：

Dim xmlDoc As New MSXML2.DOMDocument 
Dim xmlKnoten As IXMLDOMNode 

Dim xpathKnoten As String 
Dim xpathAttrib As String 

xmlDoc.async = False 
xmlDoc.validateOnParse = True     ' Auf Fehler prüfen 

If xmlDoc.Load(XmlDateiMitPfad) = False Then 
    MsgBox "XML-Datei: '" & XmlDateiMitPfad & "' wurde nicht gefunden" 
    Exit Sub 
ElseIf xmlDoc.parseError = True Then 
    MsgBox "XML-Datei: '" & XmlDateiMitPfad & "' hat fehlerhaften Aufbau (ist nicht 'wohlgeformt')" 
    Exit Sub 
End If 

xmlDoc.setProperty "SelectionLanguage", "XPath" 

xpathKnoten = "/Dive/AvgDepth"       
Set xmlKnoten = xmlDoc.SelectSingleNode(xpathKnoten) 

If xmlKnoten Is Nothing Then 
    MsgBox "Knoten nicht gefunden. Vermutlich falsche XML-Struktur" 
    Exit Sub 
End If 

With Tabelle1 
    .Range("A3") = xmlKnoten.SelectSingleNode("AvgDepth").Text 
End With 

的问题是，解析器没有找到节点/dive/AvgDepth。 xmlKnoten总是没有。我究竟做错了什么？

如何在xml结构中获得更深的“Dive.Sample”？

Answer 1

问题是多个名称空间和未明确添加前缀的默认名称空间。所以XPath不知道哪个名称空间应该用于“/ Dive”。

无论您使用

... 
xpathKnoten = "*[local-name(.) = 'Dive']" 
Set xmlKnoten = xmlDoc.SelectSingleNode(xpathKnoten) 

If xmlKnoten Is Nothing Then 
    MsgBox "Knoten nicht gefunden. Vermutlich falsche XML-Struktur" 
    Exit Sub 
End If 

With Tabelle1 
    .Range("A3") = xmlKnoten.SelectSingleNode("*[local-name(.) = 'AvgDepth']").Text 
End With 
... 

，或者您与XPath的前缀映射的默认命名空间：

... 
xmlDoc.setProperty "SelectionLanguage", "XPath" 

xmlDoc.setProperty "SelectionNamespaces", "xmlns:sdd=""http://schemas.datacontract.org/2004/07/Suunto.Diving.Dal""" 

xpathKnoten = "/sdd:Dive" 
Set xmlKnoten = xmlDoc.SelectSingleNode(xpathKnoten) 

If xmlKnoten Is Nothing Then 
    MsgBox "Knoten nicht gefunden. Vermutlich falsche XML-Struktur" 
    Exit Sub 
End If 

With Tabelle1 
    .Range("A3") = xmlKnoten.SelectSingleNode("sdd:AvgDepth").Text 
End With 
... 

对于你的第二个问题：“我怎样才能在XML结构更深得到我的“Dive.Sample”？“

我会做这样的事情：通过VB6读取多个XML文件]的

... 
Dim xmlNodeList As IXMLDOMNodeList 

Set xmlNodeList = xmlDoc.SelectNodes("/sdd:Dive/sdd:DiveSamples/sdd:Dive.Sample") 

For Each xmlKnoten In xmlNodeList 
MsgBox xmlKnoten.XML 
Next 
...