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

Por favor algún experto que me ayude. 

Gracias