| |
XMLの名前空間を親ノードで指定すると、子ノードにxmlns=""と自動的に入力されてしまいます。
testノードにはxmlns=""を出力させたくないのですが、方法はありますか？
□出力結果
<root xmlns="aaa.co.jp>
<test xmlns=""/>
</root>
□理想の結果
<root xmlns="aaa.co.jp">
<test/>
</root>
□現在のコード
Sub Samples()
Dim xmlDoc As MSXML2.DOMDocument60
Dim xmlPI As IXMLDOMProcessingInstruction 'XML宣言
Dim rootelement As MSXML2.IXMLDOMElement
Dim element As MSXML2.IXMLDOMElement
'XMLドキュメント作成
Set xmlDoc = Nothing
Set xmlDoc = New MSXML2.DOMDocument60
'XML宣言
Set xmlPI = xmlDoc.appendChild(xmlDoc.createProcessingInstruction("xml", "version=""1.0"" encoding=""UTF-8"""))
Set rootelement = xmlDoc.createElement("root")
xmlDoc.appendChild rootelement
Set attr = xmlDoc.createNode(2, "xmlns", "")
attr.Text = "aaa.co.jp"
rootelement.setAttributeNode attr
Set element = rootelement.appendChild(xmlDoc.createNode(NODE_ELEMENT, "test", ""))
xmlDoc.Save ("namespace.xml")
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
