VBA XML输出的问题。

bloodguy 2022-04-21 12:04:40
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>

 

...全文
25 回复 打赏 收藏 举报
写回复
回复
切换为时间正序
请发表友善的回复…
发表回复
发帖
VBA
加入

2167

社区成员

VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。
社区管理员
  • VBA
申请成为版主
帖子事件
创建了帖子
2022-04-21 12:04
社区公告
暂无公告