VBA XML输出的问题。

[bloodguy]

Sub testXML()

Dim dom, node, PCMS

    Set dom = CreateDom
    Set node = dom.createProcessingInstruction("xml", "version='1.0' encoding='utf-8'")
    dom.appendChild node
    Set node = Nothing

    Set PCMS = dom.createNode(1, "PCMS", "MyNamespace")
    dom.appendChild PCMS

    PCMS.appendChild dom.createNode(1, "SendPCMSManifest", "MyNamespace")
    PCMS.appendChild dom.createNode(1, "header", "MyNamespace")

    Debug.Print dom.XML
    dom.Save "D:\DomTest.xml"
End Sub

Private Function CreateDom()
    Dim dom
    Set dom = New DOMDocument
    dom.async = False
    dom.validateOnParse = False
    dom.resolveExternals = False
    dom.preserveWhiteSpace = True
    Set CreateDom = dom
End Function

运行的结果是生成DomTest.xml

<?xml version="1.0" encoding="UTF-8"?>

-<PCMS xmlns="MyNamespace">

<SendPCMSManifest/>

<header/>

</PCMS>

问题：下面红色的这段代码要怎么写，还有改了以后子节点会不会有xmlns的空属性，要求不显示xmlns=，请高手帮忙解答。谢谢！

<?xml version="1.0" encoding="UTF-8"?>

-<PCMS xmlns="MyNamespace">

<SendPCMSManifest/>

<text>文字</text>

</SendPCMSManifest>

<header/>

</PCMS>

 

[CSDN-Ada助手]

您可以前往 CSDN问答-移动开发 发布问题, 以便更快地解决您的疑问