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>

 

...全文
100 1 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
CSDN-Ada助手 2023-01-13
  • 打赏
  • 举报
回复
您可以前往 CSDN问答-移动开发 发布问题, 以便更快地解决您的疑问

2,503

社区成员

发帖
与我相关
我的任务
社区描述
VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。
社区管理员
  • VBA
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧