xmlns=""是程序自动生成的,是执行完dom.save App.Path + "\dynamDom.xml"这句后,程序自动加上去的.可我不想要这个(xmlns="")属性,我该如何设置DOMDocument30对象?

以下是我的VB源码:
Private Function CreateDOM()
    Dim dom
    Set dom = New DOMDocument30
    dom.async = False
    dom.validateOnParse = False
    dom.resolveExternals = False
    dom.preserveWhiteSpace = True
    Set CreateDOM = dom
End Function

Private Sub Form_Load()
    Dim dom, node, attr

    On Error GoTo ErrorHandler

    Set dom = CreateDOM
    
    Set node = dom.createProcessingInstruction("xml", "version='1.0'")
    dom.appendChild node
    Set node = Nothing
    
    Set node = dom.createProcessingInstruction("xml-stylesheet", _
                                "type='text/xml' href='test.xsl'")
    dom.appendChild node
    Set node = Nothing
    
    Set node = dom.createComment("sample xml file created using XML DOM object.")
    dom.appendChild node
    Set node = Nothing

    Dim root
    Set root = dom.createElement("root")
    

    Set attr = dom.createAttribute("xmlns")
    attr.Value = "urn:schemas-microsoft-com:office:excel"
    root.setAttributeNode attr
    Set attr = Nothing
    
    dom.appendChild root
    
    root.appendChild dom.createTextNode(vbNewLine + vbTab)

    Set node = dom.createElement("node1")
    node.Text = "some character data"

    root.appendChild node
    Set node = Nothing

    root.appendChild dom.createTextNode(vbNewLine)
    Set node = Nothing
    

    dom.save App.Path + "\dynamDom.xml"
    Set root = Nothing
    Set dom = Nothing
    Exit Sub
    
ErrorHandler:
    MsgBox Err.Description
End Sub

一切OK

具体原因,请参看微软的Knowledge Base
PRB: DOMDocument.CreateNode() Method Appends an Empty Namespace DeclarationPSS ID Number: Q290485