Macro para buscar archivos de excel

Busco una macro que me permita recorrer todas las carpetas de un directorio que yo elija y me copie todos los archivos *.xls* a una carpeta destino. El nombre del directorio cambiaría, pero el de la carpeta de destino podría ser el mismo.

Nota: esta pregunta la formulé hace unos días, pero tan mal explicada que ni yo mismo la entiendo, y es por eso que la formulo de nuevo. Si estoy incumpliendo alguna norma de la web, entendería que no fuera publicada.

1 Respuesta

Respuesta
1

H o l a:

Te anexo la macro.

Dim rutas As New Collection
Sub CopiarArchivosXls()
'Por.Dante Amor
'Copia archivos a una carpeta destino
    '
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    rutadestino = "C:\trabajo\cartas\"
    ruta = "C:\"
    ext = "xls*"
    '
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Selecciona una carpeta"
        .AllowMultiSelect = False
        .InitialFileName = ruta
        If .Show <> -1 Then Exit Sub
        carpeta = .SelectedItems(1)
    End With
    '
    If carpeta = "" Then Exit Sub
    '
    pPath = carpeta & "\"
    rutas.Add carpeta
    Call agregadir(pPath)
    '
    For Each sd In rutas
        arch = Dir(sd & "\*." & ext)
        Do While arch <> ""
            FileCopy sd & "\" & arch, rutadestino & arch
            arch = Dir()
        Loop
    Next
    '
    Set rutas = Nothing
    MsgBox "Fin, copiar archivos xls", vbInformation, "ARCHIVOS"
End Sub
'
Sub agregadir(lpath) 'Agrega directorios
'Por.Dante Amor
    Dim SubDir As New Collection
    If Right(lpath, 1) <> "\" Then lpath = lpath & "\"
    DirFile = Dir(lpath & "*", vbDirectory)
    Do While DirFile <> "" 'Agrega subdirectorios a collection
        If DirFile <> "." And DirFile <> ".." Then _
            If ((GetAttr(lpath & DirFile) And vbDirectory) = 16) Then _
                SubDir.Add lpath & DirFile
        DirFile = Dir
    Loop
    For Each sd In SubDir
        rutas.Add sd
        Call agregadir(sd)
    Next
End Sub

Indicaciones:

  1. En esta línea de la macro pon la carpeta destino: 
    rutadestino = "C:\trabajo\cartas\"
  2. Copia todo el código en un módulo.
  3. La macro que debes ejecutar es la que tiene el nombre "CopiarArchivosXls"
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Copiar contenido de archivos de Texto a Excel.

Tengo una carpeta en una ruta especifica que contiene 100 subcarpetas y cada una a su vez, tiene 10 carpetas dentro de ellas, en las cuales viene un archivo de texto.txt del cual quiero extraer el contenido y pegarlo en una hoja de calculo de excel....
2 respuestas

Macro para buscar archivos txt en múltiples carpetas desde archivo excel

Tengo una buena consulta, resulta que ocupo un macro que me permita buscar desde una lista en excel, todos los archivos en .txt que coincidan y me los copie a otra carpeta destino, buscando y buscando logré conseguir el siguiente macro: Sub ejemplo()...
1 respuesta

Rutina para buscar y reemplazar un texto concreto en varios documentos de Excel

Quisiera una rutina en Excel que hiciera lo siguiente: - Buscar y reemplazar texto dentro de páginas de excel, pero que la búsqueda sea en todos los archivos de excel que haya en un directorio indicado previamente. Creo que me he explicado más o...
2 respuestas

¿Cómo puedo copiar una carpeta de mis documentos a una o varias localidades de red? Con Excel 2010

En mi trabajo debo hacer un respaldo de varias carpetas que contiene archivos de Excel, pdf y xml en dos ubicaciones de red distintos, quisiera saber si es posible que la copia se haga desde Excel por medio de una macro.
1 respuesta

Macro para crear carpeta con nombre de celdas

Estimado muy buenas tardes! Tengo un problema con una macro que no logro resolver... Cree un botón el cual al oprimirlo guarda una hoja de excel en PDF con el nombre de dos celdas (valor de celda1+valor de celda2). Ahora bien quiero hacer lo mismo...
2 respuestas

Copias de Seguridad

Quiero pedirte un favor tu no tienes un programa de access o visual Basic que me permita sacar un copia de Seguridad de un Base de datos, y la debe crear en otra carpeta con un nombre especifico que yo le de Que pena seguirlo molentando pero quiero...
1 respuesta

Guardar Hoja(hoja3) En Una Carpeta Especifica(C:\Excel\) Con Botón Macro Ubicado en Una Hoja Diferente A La Que Se Va A Guardar

Mi amigo necesito de tu ayuda! Primero quiero darte las gracias por responder el post y luego quiero preguntarte algo: Primero quiero decirte que este código me sirve a la perfección: Sub crearcarpeta2() 'Por.DAM ruta = "C:\Excel\" arch = Range("A2")...
2 respuestas

¿Crear carpeta según valor de celda y guardar una copia de mi libro en esa carpeta creada?

Quisiera saber si puedo generar una carpeta con valor de la celda a2 hasta f50 pero que se crea la carpeta con valor de la celda a2 y mi libro me lo guarde en esa carpeta.
2 respuestas

Copiar una hoja en una carpeta creada automáticamente

Estoy haciendo una macro que me copie una hoja llamada código en una carpeta en el directorio donde se encuentra el libro, esta carpeta debe crearse automáticamente sino existe, y debe guardarse por mes, ejemplo si estamos en el año 2015 en el mes de...
1 respuesta

Revisión de código para guardar imágenes en una carpeta en especifico

Que me proporcionaron en el foro: Con este código, se guarda la imagen de excel en una carpeta en especifico Sub ejemplo2() 'Por.DAM On Error Resume Next For i = 2 To Range("A" & Rows.Count).End(xlUp).Row For Each img In ActiveSheet.DrawingObjects If...
1 respuesta