Buscador de archivos Excel

Espero que a base de insistir en ciertos temas la gente se quede con la copla, porqué el tema ya huele.

Macro para buscar archivos en un directorio.

Se pregunta con un InputBox el nombre o parte del nombre del archivo Excel a buscar.

Sub AbrirArchivo()


Directorio = "C:\" '<======= Directorio de búsqueda por defecto

Solicitud = "Nombre de archivo Excel" & vbLf & "(Admite caracteres comodín)"

Título = "Buscador de archivos en " & Directorio

FiltroExcel = ".xl*"



Set Dialogo = Application.FileDialog(msoFileDialogFilePicker)

With Dialogo

    .AllowMultiSelect = False

    .InitialView = msoFileDialogViewDetails

    .InitialFileName = Directorio & InputBox(Solicitud, Título) & FiltroExcel

    .ButtonName = "Abrir archivo"

    .Title = "Seleccionar archivo"

    .Show


    For Each Libro In .SelectedItems

        Workbooks.Open Libro

    Next



End With



End Sub



[/CODE]

Seeedddd bueeeeeenossssss