Добавить в XML дополнительное поле используя appendChild.

[Alfiks]

Написал вот такую штуку для добавления в xml документ своих данныых

Public Sub OneDocXML()
Dim xmlDoc  As Object
Dim root As Object
Dim newNode As Object
Dim Header As Object
Dim currNode As IXMLDOMNode

 
Set xmlDoc = CreateObject("Msxml.DOMDocument")
    xmlDoc.async = False
    xmlDoc.validateOnParse = False              'äîêóìåíò ïðàâèëüíûé
    xmlDoc.loadXML "<?xml version='1.0' encoding='UTF-8'?>"
 xmlDoc.Load ("c:\_test.xml")

If (xmlDoc.parseError.errorCode <> 0) Then
   Dim myErr
   Set myErr = xmlDoc.parseError
   MsgBox ("Îøèáêà â " & myErr.reason)
Else
  Dim str As String
     Set root = xmlDoc.documentElement
     str = "Before appendChild:" & vbCrLf & root.xml & vbCrLf
     Set newNode = xmlDoc.createNode(1, "newChild", "")
     Set currNode = root.insertBefore(newNode, root.childNodes.Item(1))
     root.appendChild newNode
  
End If
'Set xmlDoc = CreateObject("Msxml.DOMDocument")
xmlDoc.Save ("C:\Test31.xml")
MsgBox root.xml

End Sub

Оlнако возникла загвоздка в том, как сделать вставку вида
<newChild>code</newChild>
а не
<newChild xmlns="code"/>

Прошу не бить меня, я только первую неделю учусь ))

[Alfiks]

Нашел вариант вроде делает то что нужно!

     Set root = xmlDoc.documentElement
     Set newNode = xmlDoc.createElement("code2")
     root.childNodes.Item(1).appendChild newNode
     root.childNodes.Item(1).LastChild.Text = "my text"
     root.appendChild newNode

Однако не получается выполнить его повторно. Выводит только последний вариант.

И вопрос к обоим вариантам. Как делать вложения в данный код, типа

<order_prod>
		<HashKey key="5">
			<Code>test</Code>
			<Id>test</Id>
			<Name>test</Name>
			<Order>1</Order>
			<Price>30</Price>
		</HashKey>
</order_prod>