XMLでノードを追加したい (ID:103410)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

1.xmlファイルに2.xmlファイルの内容を追加しようとしています。
1.xmlの内容は、
<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<EditObjects>
  <Line>
    <bymethod>False</bymethod>
    <x1>233</x1>
    <y1>132</y1>
    <x2>784</x2>
    <y2>497</y2>
    <penwidth>10</penwidth>
    <pencolor_a>255</pencolor_a>
    <pencolor_r>0</pencolor_r>
    <pencolor_g>0</pencolor_g>
    <pencolor_b>0</pencolor_b>
    <doubleline>False</doubleline>
  </Line>
</EditObjects>
で2.xmlの内容は
<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<EditObjects>
  <Rectangle>
    <bymethod>False</bymethod>
    <rect_left>186</rect_left>
    <rect_top>674</rect_top>
    <rect_right>619</rect_right>
    <rect_bottom>974</rect_bottom>
    <penwidth>10</penwidth>
    <pencolor_a>255</pencolor_a>
    <pencolor_r>0</pencolor_r>
    <pencolor_g>0</pencolor_g>
    <pencolor_b>0</pencolor_b>
    <brushcolor_a>255</brushcolor_a>
    <brushcolor_r>128</brushcolor_r>
    <brushcolor_g>255</brushcolor_g>
    <brushcolor_b>255</brushcolor_b>
    <fill>False</fill>
    <angle>0</angle>
    <image_filename />
    <aspectratio>True</aspectratio>
  </Rectangle>
</EditObjects>
です。

コードは以下です。
Dim DO_RootElement1 As Xml.XmlElement
Dim DO_RootElement2 As Xml.XmlElement
Dim DO_AddNode As Xml.XmlNode

DO_XmlDoc1.Load("c:\1.xml")  'XMLファイル読込
DO_XmlDoc2.Load("c:\2.xml")  'XMLファイル読込
DO_RootElement1 = DO_XmlDoc1.DocumentElement    'ルートエレメント設定
DO_RootElement2 = DO_XmlDoc2.DocumentElement    'ルートエレメント設定
For DI_Cnt01 = 0 To DO_RootElement2.ChildNodes.Count - 1
    DO_AddNode = DO_RootElement2.ChildNodes(DI_Cnt01).Clone
    DO_RootElement1.AppendChild(DO_AddNode)
Next
DO_XmlDoc1.Save("c:\1.xml")

としているのですが、AppendChildの所で「挿入するノードは、異なるドキュメント コンテキストのものです。」が発生します。
恐らく色々と考え違いしているのではないかと思うのですが、要は<Rectangle>の内容全てを別のxmlに追加したいのですが、どのようにすれば良いでしょうか？

←解決時は質問者本人がここをチェックしてください。

戻る