xml属性赋值示例代码

Sub CreateXML1()

    Dim xmldoc As DOMDocument

    Dim valnode As IXMLDOMElement

    Dim ver As Variant

    Dim attr As IXMLDOMAttribute

    Dim attr1 As IXMLDOMNode

    Dim attr2 As IXMLDOMAttribute

    Set xmldoc = New DOMDocument

       Set ver = xmldoc.createProcessingInstruction("xml", "version=" & _

        Chr(34) & "1.0" & Chr(34) & " encoding=""UTF-8""")

    xmldoc.appendChild ver

    Set valnode = xmldoc.createElement("jsp:root")

    Set attr = xmldoc.createAttribute("xmlns:jsp")

    attr.nodeValue = "http://java./JSP/Page"

    valnode.setAttributeNode attr

    

    Set attr = xmldoc.createAttribute("version")

    attr.nodeValue = "2.1"

    valnode.setAttributeNode attr

    

    Set attr = xmldoc.createAttribute("xmlns:f")

    attr.nodeValue = "http://java./jsf/core"

    

    valnode.setAttributeNode attr

    xmldoc.appendChild valnode

    xmldoc.Save ThisWorkbook.Path & "\number.jspx"

    

    Set xmldoc = Nothing

    Set ver = Nothing

End Sub