Porque una macro no se ejecuta copio el código o importo los módulos
publicado
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
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.
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