(Excel) Insert after Node with Tag

Demonstrates how to insert a new node as a sibling directly after a specified node having a given tag.

Note: This example requires Chilkat v9.5.0.76 or greater. The TagIndex method was introduced in v9.5.0.76

Download Excel Class Modules Chilkat Excel Class Modules

' First, let's create the following XML:

'   <FatturaElettronicaHeader>
'     <DatiTrasmissione>
'       <IdTrasmittente>
'         <IdPaese>IT</IdPaese>
'         <IdCodice>12345678</IdCodice>
'       </IdTrasmittente>
'     </DatiTrasmissione>
'   </FatturaElettronicaHeader>

Dim xml As Chilkat.Xml
Set xml = Chilkat.NewXml
xml.Tag = "FatturaElettronicaHeader"
xml.UpdateChildContent "DatiTrasmissione|IdTrasmittente|IdPaese","IT"
xml.UpdateChildContent "DatiTrasmissione|IdTrasmittente|IdCodice","12345678"

' Now insert a new node to get this XML:

'   <FatturaElettronicaHeader>
'     <DatiTrasmissione>
'       <IdTrasmittente>
'         <IdPaese>IT</IdPaese>
'         <NewTag>Content</NewTag>
'         <IdCodice>12345678</IdCodice>
'       </IdTrasmittente>
'     </DatiTrasmissione>
'   </FatturaElettronicaHeader>


Set xT = xml.FindChild("DatiTrasmissione|IdTrasmittente")

index = xT.TagIndex("IdPaese")
If (index < 0) Then
    Debug.Print "nothing found at the given tag."
    Exit Sub
End If


Set x1 = xT.NewChildAfter(index,"NewTag","Content")

' Show the resulting XML.
Debug.Print xml.GetXml()