Nombre de Libros Excel de una ruta VBA
En mi escritorio tengo una carpeta con varios archivos excel, pero me gustaría ver la manera de obtener el nombre del archivo si inicia con Panadería... Y me salga al final un mensaje de anidado de los nombres encontrados y cuantos encontró, encontré la forma de hacerlo pero abre y cierra los archivos para poder tener su nombre, mi pregunta hay la manera de que vea el nombre sin la necesidad de abrirlo.
1 respuesta
Respuesta de ricohablador
1
Adapta este ejemplo a lo que quieres.
Sub ListarArchivos() Dim sLista As String Dim sArchivo As String sArchivo = Dir(ThisWorkbook.Path & "\Carpeta\Panadería*.*") While sArchivo <> "" sLista = sLista & vbCrLf & sArchivo sArchivo = Dir() Wend MsgBox sLista End Sub
¡Gracias! amigo y una consulta pequeña si desearia buscar los archivos que inicien su nombre con algun numero
ejemplo 1Tienda, 5Local y asi como haria osea que inicie con cualquier numero como haria. Gracias de antemano.
Modifica la línea While.
While sArchivo <> "" And sArchivo Like "#*"
