Hej, någon som vet?
Använder MS XML v.6.
Ändrar i ett gammalt program och men är inte van xml.
Jag behöver få till en XML-struktur med flera noder.
Idag skapar den <root><n1><n2><child1>
Jag behöver få till en struktur med noder under <child1> typ:
<root><n1><n2><child1><n3><n4>Text="Hej"

    Dim objDOM As New MSXML2.DOMDocument60
    Dim objNode As MSXML2.IXMLDOMNode
    Dim objPerson As MSXML2.IXMLDOMNode
    Dim objGrandChildNode As MSXML2.IXMLDOMNode
    Dim objAttribute As MSXML2.IXMLDOMAttribute
    Dim objElement As MSXML2.IXMLDOMElement
    Dim i As Integer

    Set objNode = objDOM.createNode(NODE_PROCESSING_INSTRUCTION, "xml", "")
    objDOM.appendChild objNode
    Set objNode = objDOM.createNode(NODE_ELEMENT, "Lista", "") 'encoding="ISO-8859-1"?
    
    For i = 1 To 3
         Set objPerson = objDOM.createNode(NODE_ELEMENT, "nood1", "")
         objNode.appendChild objPerson
         
         Set objGrandChildNode = objDOM.createNode(NODE_ELEMENT, "noodChild", "")
         objGrandChildNode.Text = "Kontaktdata"
         objPerson.appendChild objGrandChildNode
         
         Set objGrandChildNode = objDOM.createNode(NODE_ELEMENT, "noodNoodChild", "")
         objGrandChildNode.Text = "Information"
         objPerson.appendChild objGrandChildNode
         
         Set objGrandChildNode = objDOM.createNode(NODE_ELEMENT, "noodNoodChild", "")
         objGrandChildNode.Text = "Info"
         objPerson.appendChild objGrandChildNode
    Next i
        
    objDOM.appendChild objNode
    Set objNode = Nothing

     Debug.Print objDOM.xml