De 13500 archivos con extensión pdf, como copiar solo 725 archivos seleccionados a otra carpeta.
En una carpeta tengo 13500 archivos con extensión pdf, y en un archivo excel tengo los nombres de los 725 archivos que quiero copiar a otra carpeta, como puedo lograr esto solicito si alguien puede apoyarme con una macro
1 Respuesta
Respuesta de Dante Amor
3
Te anexo la macro
Sub Copiar_Archivos()
'Por.Dante Amor
Application.ScreenUpdating = False
ruta_origen = "C:\trabajo\"
ruta_destino = "C:\trabajo\clientes\"
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
arch = Cells(i, "A")
If Right(arch, 4) <> ".pdf" Then
arch = arch & ".pdf"
End If
If Dir(ruta_origen & arch) <> "" Then
FileCopy ruta_origen & arch, ruta_destino & arch
Cells(i, "B") = "Archivo copiado"
Else
Cells(i, "B") = "No existe"
End If
Next
Application.ScreenUpdating = True
MsgBox "Fin"
End SubCambia en estas líneas los nombres de tus carpetas:
ruta_origen = "C:\trabajo\" ruta_destino = "C:\trabajo\clientes\"
Los nombres de tus archivos deberán empezar en la fila 2 de la columna A
En la columna B te pondrá el mensaje.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
¡Gracias! Dante Amor.
La macro me soluciono el problema que tenia, muchísimas gracias por compartir tus conocimientos
Edison..
