Porque una macro no se ejecuta copio el código o importo los módulos

[fjaimes04]

Hola a todos los que me puedan ayudar a resolver este problema.

Buscando encontré este un código que lee archivos xml de un directorio seleccionado para luego pasarlo a una hoja de excel,  el problema surgió cuando quise copiar todo el código en un archivo nuevo y proceder a testear,  ya he revisado que tenga estén habilitadas las mismas referencias de las librerías, pero nada que encuentro el detalle.

Una parte del código me daba interrupción en esta línea  "ruta = LCase(CreateObject([explorador]).BrowseForFolder(0, "selecciona la carpeta a procesar", 0, "").items.Item.Path)"  y luego consultando hice este cambio "ruta = LCase(CreateObject("shell.application").BrowseForFolder(0, "selecciona la carpeta a procesar", 0, "").Items.Item.Path)

 " y funcionó  ,  pero luego volvió a parar en la línea  "With CreateObject([openFile])".

 

Si corro el archivo que original ejecuta todo bien.

Pero la idea era hacerle unos cambios para adaptarlo a mis necesidades.

Adjunto la carpeta donde se encuentran los archivos para prueba.

Mil gracias al que me de una mano,  la idea es seguir aprendiendo

test de lectura xml.rar

[fjaimes04]

Por favor algún experto que me ayude. 

Gracias