I am trying to find out whether an XML Attribute with a specific value exists or not in each child element of the xml document root. My code is as follows:
Option Explicit
Dim sheet As Worksheet
Dim rowCount1, i As Integer
Dim xNode As MSXML2.IXMLDOMNode
Dim xDoc As MSXML2.DOMDocument
Dim Nodes As MSXML2.IXMLDOMNodeList
Public Sub LoadDocument()
rowCount1 = 0
Set xDoc = New MSXML2.DOMDocument
xDoc.validateOnParse = False
If xDoc.load("D:\Feedroutes.xml") Then ' The document loaded successfully.
Set Nodes = xDoc.SelectNodes("//Property[@name='Value']")
AttributesToColumns
Else
' The document failed to load.
End If
End Sub
Public Sub AttributesToColumns()
Set sheet = ActiveSheet
For Each xNode In Nodes
If Not Nodes Is Nothing Then
rowCount1 = rowCount1 + 1
sheet.Cells(rowCount1, 3).Value = xNode.Text
'I want to increment the rowCount even if the attribute with the
'specific value doesn't exist
ElseIf Nodes Is Nothing Then
rowCount1 = rowCount1 + 1
End If
Next xNode
End Sub
At present it only writes the values of the attributes in successive rows, whereas the desired output is, write only in rows where the attribute with the specific value is present. My XML looks like this:
<Tag name="PosLim" path="Feeders/R1" type="OPC">
<Property name="Value">0.0</Property>
<Property name="DataType">4</Property>
<Property name="OPCServer">Ignition OPC-UA Server</Property>
<Property name="OPCItemPath">[Siemens]DB141,I74</Property>
<Property name="ScaleMode">1</Property>
<Property name="RawHigh">1000.0</Property>
<Property name="FormatString">#,##0.00</Property>
<Property name="EngUnit">Kg</Property>
</Tag>
<Tag name="JogSettle" path="Feeders/R1" type="OPC">
<Property name="DataType">1</Property>
<Property name="OPCServer">Ignition OPC-UA Server</Property>
<Property name="OPCItemPath">[Siemens]DB141,I96</Property>
<Property name="RawHigh">1000.0</Property>
<Property name="FormatString">#,##0</Property>
<Property name="EngUnit">S</Property>
</Tag>
<Tag name="Positive Tol" path="Feeders/R1" type="OPC">
<Property name="Value">0.0</Property>
<Property name="DataType">4</Property>
<Property name="OPCServer">Ignition OPC-UA Server</Property>
<Property name="OPCItemPath">[Siemens]DB141,I78</Property>
<Property name="ScaleMode">1</Property>
<Property name="RawHigh">1000.0</Property>
<Property name="FormatString">#,##0.00</Property>
<Property name="EngUnit">Kg</Property>
</Tag>
My purpose is to write the values of attribute "name" where name = "Value" and all the other attributes as well in corresponding rows, not successive rows. So from the xml file above, my excel output should be:
Row No. Value ScaleMode
Row1 0 1
Row2
Row3 0 1 etc