如何在VBA代码中为XML节点添加指定命名空间与属性？

问题根源 #

给<enviDeclaracaoAutodesembaraco>根节点添加命名空间属性后，<infDeclaracaoMensal>等子节点出现空命名空间（如<infDeclaracaoMensal xmlns="">），本质是创建子节点时未指定与根节点一致的命名空间，DOM默认给无命名空间的子节点添加空命名空间声明，覆盖父节点的默认命名空间继承。

解决方案 #

核心是所有节点（根节点+子节点）都使用指定的主命名空间创建，具体步骤如下：

1. 先定义命名空间常量，方便统一维护

'替换为你实际需要的命名空间值
Const NS_MAIN As String = "http://www.sefaz.rs.gov.br/autodesembaraco"
Const NS_XSI As String = "http://www.w3.org/2001/XMLSchema-instance"
'替换为实际的schema地址
Const SCHEMA_LOCATION As String = "http://www.sefaz.rs.gov.br/autodesembaraco autodesembaraco.xsd"

2. 创建带命名空间的根节点，并添加所需属性

Dim xmlDoc As MSXML2.DOMDocument60
Set xmlDoc = New MSXML2.DOMDocument60
xmlDoc.async = False
xmlDoc.validateOnParse = False
xmlDoc.preserveWhiteSpace = True

'用createElementNS创建带主命名空间的根节点
Dim rootNode As MSXML2.IXMLDOMElement
Set rootNode = xmlDoc.createElementNS(NS_MAIN, "enviDeclaracaoAutodesembaraco")

'添加xsi命名空间和schemaLocation属性
rootNode.setAttribute "xmlns:xsi", NS_XSI
rootNode.setAttribute "xsi:schemaLocation", SCHEMA_LOCATION

xmlDoc.appendChild rootNode

3. 创建子节点时必须指定主命名空间

'错误写法：用createElement会生成空命名空间
'Set infNode = xmlDoc.createElement("infDeclaracaoMensal")

'正确写法：用createElementNS指定与根节点一致的命名空间
Set infNode = xmlDoc.createElementNS(NS_MAIN, "infDeclaracaoMensal")
rootNode.appendChild infNode

4. 嵌套子节点同样遵循命名空间规则
   如果<infDeclaracaoMensal>还有子元素，也要用createElementNS指定主命名空间：

Set subNode = xmlDoc.createElementNS(NS_MAIN, "numeroDeclaracao")
subNode.Text = "123456"
infNode.appendChild subNode

原理说明 #

XML中父节点的默认命名空间会被子节点继承，但如果用无命名空间的createElement创建子节点，DOM会判定该节点不属于任何命名空间，因此自动添加xmlns=""声明来阻断继承。而通过createElementNS指定与父节点一致的命名空间后，子节点会明确属于该命名空间，无需额外声明，也就不会出现空命名空间。

内容的提问来源于stack exchange，提问作者Raí Rodrigues