Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

963 / 76735

←次へ　｜　前へ→


	【81432】XMLの名前空間を親ノードで指定すると、子ノードにxmlns=""と自動的に入力される

あも - 20/7/30(木) 18:37 -


	引用なし

	パスワード

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

1 hits

▼

【81432】XMLの名前空間を親ノードで指定すると、子ノードにxmlns=""と自... あも 20/7/30(木) 18:37