MSXML 将默认的空 xmlns 添加到所有元素-解网

问：

我需要从特定的 xsd 架构创建一个 XML，并使用 VBA 访问 MSXML2 库。到目前为止，我可以创建所有内容，但问题是 MSXML2 在根目录之后的字段上创建默认 xmlns，即使我指定了它。

我想要实现的目标：

<auditfile xmlns="urn:StandardAuditFile-Taxation-CashRegister:DK">
  <header>
  </header>
  <company>
  </company>
</auditfile>

我得到什么：

<auditfile xmlns="urn:StandardAuditFile-Taxation-CashRegister:DK">
  <header xmlns="">
  </header>
  <company xmlns="">
  </company>
</auditfile>

我有一个验证器，我可以检查一切正常，但是一旦xmlns=“”出现，我就说不。

我用于生成 xml 开头的代码是这样的。

Dim Document As Object
Set Document = CreateObject("MSXML2.DOMDocument.6.0")

Dim AuditRoot As Object
Set AuditRoot = Document.createElement("auditfile")
AuditRoot.setAttribute "xmlns", "urn:StandardAuditFile-Taxation-CashRegister:DK"
Document.appendChild AuditRoot

Set headerRoot = Document.createElement("header")
AuditRoot.appendChild headerRoot

Set companyRoot = Document.createElement("company")
AuditRoot.appendChild companyRoot

'Save the XML file
Document.Save "c:\Diamond\XML\SAT-T.xml"
'Set export to be c:\Diamond\XML\fil
MsgBox "File created at dafault location: C:\Diamond\XML\SAT-T.xml"

但如上所述，它不同。那么，如果我可以禁用它，那么对一般有什么帮助吗？

XML VBA MS-访问 MSXML6

Dim Document
Set Document = CreateObject("MSXML2.DOMDocument.6.0")

Dim AuditRoot, NS
NS = "urn:StandardAuditFile-Taxation-CashRegister:DK"

Set AuditRoot = Document.createNode(1, "auditfile", NS)
Document.appendChild AuditRoot

Set headerRoot = Document.createNode(1, "header", NS)
AuditRoot.appendChild headerRoot

Set companyRoot = Document.createNode(1, "company", NS)
AuditRoot.appendChild companyRoot

'Save the XML file
Document.Save "c:\Diamond\XML\SAT-T.xml"
'Set export to be c:\Diamond\XML\fil
MsgBox "File created at dafault location: C:\Diamond\XML\SAT-T.xml"

输出

<auditfile xmlns="urn:StandardAuditFile-Taxation-CashRegister:DK">
    <header/>
    <company/>
</auditfile>

MSXML 将默认的空 xmlns 添加到所有元素

MSXML adds default empty xmlns to all elements

评论

评论