XML Knoten umbennen
11.08.2015 15:19:18
Tim
ich habe eine XML Datei aus der ich Knoten in eine andere XML Struktur kopiere.
Dies funktioniert auch sehr gut. Jetzt habe ich das Problem, das ich diesen kopierten Knoten gerne umbennen würde. Kann mir jemand vielleicht sagen wie das funktioniert? Mit nodeName komme ich leider nicht weiter, und google hilft mir auch nicht wirklich.
Hier ein Teil meines Codes.
Dim DGRDoc As MSXML2.DOMDocument
Set DGRDoc = New MSXML2.DOMDocument
DGRDoc.Load (ThisWorkbook.Path & "\Data\Files\DGR.xml")
For r = 6 To Cells(q, Columns.Count).End(xlToLeft).Column
For s = 0 To dgslcount - 1
If Sheets("AP").Cells(q, r) = DGRDoc.SelectSingleNode("NOTOC/dgslload[" & s & "]/ _
dgslNbr/referenceDetails[0]/value").Text Then
Set nodes = DGRDoc.SelectNodes("//dgslload[" & s & "]")
For Each node In nodes
newDoc.DocumentElement.SelectSingleNode("//loadInfo[" & i - 1 & "]/Load/ _
APload").appendChild node.cloneNode(True)
Next
Set nodes = Nothing
Exit For
End If
Next s
Next r
Vielen Dank schonmal im vorraus!