(Excel) Handling Namespaces in XML Tags

Demonstrates new features added in Chilkat v9.5.0.77 for helping with namespace prefixed tags.

Download Excel Class Modules Chilkat Excel Class Modules

' First create some XML using namespace prefixed tags.

' Create this XML. 
' Use this online tool to generate the code from sample XML: 
' Generate Code to Create XML

' <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/"
'    xmlns:scm="http://www.springcm.com/atlas/webservices/v201308/scm/">
'    <soapenv:Header/>
'    <soapenv:Body>
'       <scm:AccountGetCurrent>
'          <scm:token>123</scm:token>
'       </scm:AccountGetCurrent>
'    </soapenv:Body>
' </soapenv:Envelope>

Dim xml As Chilkat.Xml
Set xml = Chilkat.NewXml
xml.Tag = "soapenv:Envelope"
Dim success As Boolean
success = xml.AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/")
success = xml.AddAttribute("xmlns:scm","http://www.springcm.com/atlas/webservices/v201308/scm/")
xml.UpdateChildContent "soapenv:Header",""
xml.UpdateChildContent "soapenv:Body|scm:AccountGetCurrent|scm:token","123"

' Go to the "Body" tag, regardless of namespace prefix.

Set xmlBody = xml.FindChild("*:Body")
If (xml.LastMethodSuccess <> True) Then
    Debug.Print "Body child not found."
    Exit Sub
End If

' Get the full tag w/ namespace prefix:
' Output is "soapenv:Body"
Debug.Print xmlBody.Tag

' Get the namespace prefix:
' Output is "soapenv"
Debug.Print xmlBody.TagNsPrefix

' Get the unprefixed tag:
' Output is "Body"
Debug.Print xmlBody.TagUnprefixed

' Check to see if the unprefixed tag equals "Body"

isBodyTag = xmlBody.TagUnpEquals("Body")
Debug.Print "isBodyTag = "; isBodyTag

' Check to see if the namespace prefix equals "soapenv";

isSoapenv = xmlBody.TagNsEquals("soapenv")
Debug.Print "isSoapenv = "; isSoapenv

' Change just the namespace prefix of the tag
xmlBody.TagNsPrefix = "se"
' The tag has changed from "soapenv:Body" to "se:Body"
Debug.Print xmlBody.Tag

' Change the unprefixed part of the tag.
xmlBody.TagUnprefixed = "Bodie"
' The tag has changed from "se:Body" to "se:Bodie"
Debug.Print xmlBody.Tag