XMLの書込み処理を以下のように作成しました。
目的は<test>タグ以下に<ITEM>タグを二つ作成することなのですが、
私が作成したコードでは、<ITEM>タグが一つしか作成されません。
(どうやら1回目の書込みを2回目で上書きしてしまっているようです。)
<test>タグ以下に<ITEM>タグを二つ作成する方法についてアドバイス
ください。宜しくお願いします。
[作成したコード]
Dim setting As MSXML2.IXMLDOMElement
Dim xmlDoc As MSXML2.DOMDocument
Dim currentNode As IXMLDOMNode
xmlDoc.Load("ファイルパス")
currentNode =xmlDoc.SelectSingleNode("アイテム追加先")
Set setting =xmlDoc.createNode(MSXML2.NODE_ELEMENT,"ITEM")'新規アイテム
currentNode.appendChild setting '一回目
currentNode.appendChild setting '二回目
[実行前XML]
<test>
</test>
[実行後XML]
<test>
<ITEM/>
</test>
同じsettingを2度appendChildしてるからだと思います。2つ追加したい場合は2つそれぞれをcreateNodeしてください。
currentNode =xmlDoc.SelectSingleNode("アイテム追加先") Set setting1 =xmlDoc.createNode(MSXML2.NODE_ELEMENT,"ITEM")'新規アイテム Set setting2 =xmlDoc.createNode(MSXML2.NODE_ELEMENT,"ITEM")'新規アイテム currentNode.appendChild setting1 '一回目 currentNode.appendChild setting2 '二回目
回答有難う御座います。早速ためしてみます。