VBA XML 新建节点属性，如何防止自动增加命名空间

在VBA中处理XML文档时，特别是当创建新的节点并设置属性时，如果你想避免系统自动添加命名空间，你可以通过明确地指定`xmlns`属性或者在创建元素时不包含它来控制。例如，在`CreateElement`函数中，可以这样操作：

Dim xmlDoc As MSXML2.DOMDocument60 '假设使用的是MSXML6对象模型
Dim newNode As MSXML2.IXMLDOMNode

Set xmlDoc = New MSXML2.DOMDocument60
xmlDoc.async = False '同步模式以防命名空间自动添加

' 创建新节点时，指定名称但不包含命名空间
Dim myElement As IXMLDOMElement
Set myElement = xmlDoc.createElement("myElement")
newNode = xmlDoc.appendChild(myElement)

' 如果需要添加属性，直接写属性名而不包含命名空间前缀
newNode.setAttribute "attributeName", "attributeValue"

这样，你创建的节点将不会自动带有默认的命名空间。如果你确实想在后续阶段添加命名空间，应该先手动创建一个`IXMLNamespace`对象，并用其`Add()`方法添加到元素上。