Home > How-To Library > XML Handling

Create XML

****************************************************************
*       © 2007 CodeItBetter http://www.codeitbetter.com        *
*          This notice MUST stay intact for legal use          *
****************************************************************

Sub Create_XML(oXMLfile As String)
'This procedure is used to create XML document
'<Family>
'   <Member Relationship="Father">
'      <Name>Some Guy</Name>
'   </Member>
'</Family>
'Requires msxml.dll (Go to Project --> References and and choose Microsoft XML version 2.0, or
'whatever the current version you have installed)
    Dim objDom As DOMDocument
    Dim objRootElem As IXMLDOMElement
    Dim objSubRootElem As IXMLDOMElement
    Dim objMemberElem As IXMLDOMElement

    Set objDom = New DOMDocument

    ' Creates root element
    Set objRootElem = objDom.createElement("ErrorLog")
    objDom.appendChild objRootElem

    ' Creates sub root element
    Set objSubRootElem = objDom.createElement("Error")
    objRootElem.appendChild objSubRootElem

    ' Creates Error Date & Time element
    Set objMemberElem = objDom.createElement("ErrorDateTime")
    objSubRootElem.appendChild objMemberElem
    objMemberElem.Text = Format(Now, "DD-MMM-YYYY hh:mm:ss")

    ' Creates Error Number element
    Set objMemberElem = objDom.createElement("ErrNo")
    objSubRootElem.appendChild objMemberElem
    objMemberElem.Text = "0"

    ' Creates Error Description element
    Set objMemberElem = objDom.createElement("ErrDesc")
    objSubRootElem.appendChild objMemberElem
    objMemberElem.Text = "Test Error. Access Denied. Please retry after sometime."

    ' Saves XML data to disk.
    objDom.save oXMLfile
ExitHere:
    Err.Clear
    Set objDom = Nothing
End Sub

If you would like to submit your code here please us. Do not forget to mention your name. We are always thankful to each and everyone of you who submitted their code here.