[VBA] XML-Code einen Knoten hinzufügen

[Tobias__]

Hallo Community,

wie bereits dem Titel zu entnehmen ist, möchte ich einen Knoten in ein XML-Code hinzufügen. Dies sollte am besten in einem VBA Makro zu realisieren sein. Mein Ziel ist es am Ende ein Makro zu haben, welches beim Start den Code einliest, bearbeitet und anschließend als Tabelle in Excel darstellt. So wie der XML-Code aktuell ist, sieht die Tabelle von der Formatierung her nicht besonders anschaulich aus.

Der zu bearbeitende XML-Code:

<nagiosHosts>
<nagiosHost>
<id>1</id>
<host_name>smbox</host_name>
<address>127.0.0.1</address>
<service>Windows_DiskUsage</service>
<service>smbox_Multisite_Messaging</service>
<service>smbox_integrationConnectionValid</service>
</nagiosHost>
</nagiosHost>


Der bearbeitete XML-Code:

<nagiosHosts>
<nagiosHost>
<id>1</id>
<host_name>smbox</host_name>
<address>127.0.0.1</address>
<services>
<service>Windows_DiskUsage</service>
<service>smbox_Multisite_Messaging</service>
<service>smbox_integrationConnectionValid</service>
</services>
</nagiosHost>
</nagiosHost>

Zusagen ist noch, dass der XML-Code jedesmal andere Eingaben und eine unterschiedliche Anzahl von Services hat, sowie mehr als nur ein Host, die näturlich auch bearbeitet werden müssen.