Busqueda de Archivos

Cualquier otro tipo de consultas sobre la Hoja de Cálculos Excel.

Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
Compartir en:
     

Busqueda de Archivos

Notapor Danlev » 13 Jun 2006 11:13

Estimados Excelmaniacos,
El siguiente codigo para buscar archivos lo encontre en el foro y me fue de mucha ayuda en varias macros, pero sera posible incorporar algunas lineas de codigo para que tambien busque al interior de las carpetas que halle en la ruta ActiveWorkbook.Path ??

De antemano gracias por su valiosa ayuda

Código: Seleccionar todo
Sub Inv_docs()

Dim CarpetaBusqueda As String
Dim Ruta As String

Ruta = ActiveWorkbook.Path
   
CarpetaBusqueda = Ruta

Set BuscaArchivo = Application.FileSearch
With BuscaArchivo
.LookIn = CarpetaBusqueda
.Filename = "*.doc" 'podemos buscar una extencion determinada
    If .Execute(SortBy:=msoSortByFileName, _
    SortOrder:=msoSortOrderAscending) > 0 Then
        For i = 1 To .FoundFiles.Count
        Hoja1.Cells(i + 1, 1) = .FoundFiles(i)
        Next i
    Else
    MsgBox "No se encontró ningún archivo."
    End If
End With

End Sub


Salu2 8)
Danlev
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
Danlev
Miembro Frecuente
Miembro Frecuente
 
Registrado: 22 Jul 2005 23:23
Ubicación: Lima, Peru

Re: Busqueda de Archivos

Notapor ST » 13 Jun 2006 12:06

Danlev:

agrega despues de -->> .LookIn = "tu ruta",lo siguiente:
.SearchSubFolders = True

esta por demas decir que ".lookin" debe ser igual a thisworkbook.path o a la carpeta inmediata superior.

subi un ejemplo en el mes de enero-06 :arrow:

http://www.exceluciones.com/portal/viewtopic.php?p=18502#18502

espero sea de ayuda
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
ST
Miembro Frecuente
Miembro Frecuente
 
Registrado: 06 Jun 2005 17:56
Ubicación: Acapulco

Re: Busqueda de Archivos

Notapor Danlev » 13 Jun 2006 12:18

Hola ST:
Muchas gracias por tu valiosa ayuda, el codigo me funciono a la perfeccion.

Salu2 desde Lima 8)
Danlev
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
Danlev
Miembro Frecuente
Miembro Frecuente
 
Registrado: 22 Jul 2005 23:23
Ubicación: Lima, Peru


Compartir en:
     

  • Anuncio
Manual Excel avanzado

Volver a Otras Consultas

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 6 invitados