Добавить уровни в существующую структуру

[Евгений Таб]

Привет ув. программиcты.

Полбзуюсь макросом который конвектирует данные из Екселя в xml и потом этот файл подгружается в ИС. Появилась потребность добавить новые уровни в существующую структуру. Пожскажите как это сделать на примере макроса ниже. Например добавить в атрибут WBID 2 новых поля. Cпасибо!

Sub Convert_Excel_Data_to_XML()
    
    Dim doc As MSXML2.DOMDocument
    Dim rng As Range, rngRow As Range
    Dim root As MSXML2.IXMLDOMNode
    Dim child As MSXML2.IXMLDOMElement
    Dim xmlDecl As MSXML2.IXMLDOMProcessingInstruction
    Dim sXmlFilePath As String
    
    'Create new XML doc
    Set doc = New MSXML2.DOMDocument
    
    'Root for creation
    sXmlFilePath = ThisWorkbook.Path & "\Interface.xml"
    
    'XML declaration
    Set xmlDecl = doc.createProcessingInstruction("xml", "version='1.0' encoding='windows-1251'")
    doc.appendChild xmlDecl
    
    'Add new root
    Set root = doc.createElement("Order")
    doc.appendChild root
    
    'Select value
    
    Range("A2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
   
    
    'Add element
    Set rng = Selection
    For Each rngRow In rng.Rows
        Set child = doc.createElement("Invoice")
        child.setAttribute "DocNo", rngRow.Cells(1)
        child.setAttribute "Date", Format(rngRow.Cells(2), "yyyy-d-m")
        child.setAttribute "PointId", rngRow.Cells(3)
        child.setAttribute "PointName", rngRow.Cells(4)
        child.setAttribute "WBID", rngRow.Cells(5)
        child.setAttribute "SupplyDate", Format(rngRow.Cells(6), "yyyy-m-d")
        child.setAttribute "PalletQnt", Replace(Format(rngRow.Cells(7), "#.00"), ",", ".")
        child.setAttribute "PackQnt", Replace(Format(rngRow.Cells(8), "#.00"), ",", ".")
        child.setAttribute "Weight", Replace(Format(rngRow.Cells(9), "#.00"), ",", ".")
        child.setAttribute "Sum", Replace(Format(rngRow.Cells(10), "#.00"), ",", ".")
        child.setAttribute "Comment", rngRow.Cells(11)
        root.appendChild child
      
    Next
    Range("L2").Select
    
    'Prepared and creation
    doc.Save sXmlFilePath
    
    
End Sub