Solución 18.2 Importar datos en formato XML

Eliminación de los mapas y de listas afectados antes de la importación:

Sub EliminarMapaYListaXML()   
    Dim MapaXML As XmlMap   
    Dim lo As ListObject   
      ’ Elimina todos los mapas del libro   
      ’ y todas las listas de la hoja Datos XML Importados   
      For Each MapaXML In ActiveWorkbook.XmlMaps   
        MapaXML.Delete    ...