IXMLDOMDocument удалить все узлы или удалить весь контент - VBA Excel

Question

Следующий код пока работает нормально. Но теперь я хочу отобразить данные XML отдельно, сразу после загрузки. (Я хочу реализовать индикатор выполнения ...). По этой причине мне нужен в каждом цикле хороший чистый DOMDocument. Как я могу получить это?

Dim xmldoc As New DOMDocument
Dim xmldata As New DOMDocument
Dim map As xmlMap

Set map = sheet.xmlRelation

For Each fil In fol.Files
    If fil.name Like "*.xml" Then
        xmldoc.Load (fil)
        sheet.transformXml xmldoc
        xmldata.documentElement.appendChild xmldoc.documentElement
    End If
Next fil

map.ImportXML xmldatadata.XML

Answer 1

Угадайте, что вы хотите сделать: возможно, вы могли бы уточнить

Dim xmldoc As New DOMDocument
Dim xmldata As DOMDocument
Dim map As xmlMap

Set map = sheet.xmlRelation

For Each fil In fol.Files
     If fil.name Like "*.xml" Then
         xmldoc.Load (fil)
         sheet.transformXml xmldoc
         set xmldata = New DOMDocument
         xmldata.documentElement.appendChild xmldoc.documentElement
         map.ImportXML xmldatadata.XML 
     End If
 Next fil

Тим