как добавить дочерний узел в XML в Excel VBA

Question

У меня есть шаблон XML-как этот

<?xml version="1.0" encoding="UTF-8"?> 
<manageServiceProfileRequest xmlns="" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" > 
     <subscriptionsList> 
     <**subscription**> 
      <scode>##SCODE##</scode> 
      <sname>##SNAME##</sname> 
      <action>add</action> 
     </subscription> 
     </subscriptionsList> 
</manageServiceProfileRequest> 

Мое требование, чтобы добавить любое количество подписки узлов в зависимости от количества подписок, приведенных в качестве ввод. скажем, если количество подписчиков равно 5, тогда у меня должно быть 5, тогда мой xml shoul имеет 5 подписку узлов в теге subscriptionsList. Я написал код, в котором я вручную создаю узел подписки и добавляю scode, sname и action в качестве дочерних узлов, а затем добавляю к родительскому узлу. Что мне нужно использовать существующий узел подписки в шаблоне образца и добавить его сколько угодно раз.

Answer 1

Не уверен, что я полностью понимаю вопрос, но если ваш документ начинается с одного subscription узлом и вам необходимо добавить дополнительные subscription узлов, то вы можете повторно: глубокий клонировать существующий subscription узел и сделать новый узел дочерним для subscriptionsList узел:

' Note the True parameter to indicate we want to do a deep clone 
Set newNode = existingSubscriptionNode.cloneNode(True) 

' change the values of scode, sname and action here if needed 

existingSubscriptionNode.parentNode.appendChild newNode 

Более подробно в ссылках MSDN для cloneNode и appendChild