MACRO para pasar PDF a una carpeta
He intentado pero no me sale hacer una macro para poder pasar un listado de pdf que tengo en excel desde una carpeta que esta en C\FICHAS_LINARES_TODAS a otra carpeta que también esta en C\FICHAS_LINARES_JULIO.
En el excel lo que tengo es solo una parte de esos 5000 pdf, que son los que necesito separar.
Parecía sencillo pero no puedo.
1 Respuesta
Puedes poner unos ejemplos de lo que tienes en la hoja de excel y de cómo se llaman los pdf
Cuándo dices "En el excel lo que tengo es solo una parte de esos 5000 pdf" te refieres a que tienes una parte del nombre del pdf o tienes los nombres completos de los pdf que quieres mover?
¿Los quieres mover o los quieres copiar?
Anexa tus comentarios en ese orden.
Hola
en el excel tengo el nombre completo de los pdf:
solo quiero copiar 300 pdf de la carpeta que los contiene todos (5000)
Los quiero copiar a otra carpeta.
¡Gracias!
Te anexo la macro para copiar archivos
En la columna B te va a poner el resultado de cada copia
Revisa bien los nombres de las carpetas, deben llevar C: y la diagonal \ al final
Sub Copiar_PDF()
'Por.Dante Amor
ruta1 = "C:\FICHAS_LINARES_TODAS\"
ruta2 = "C:\FICHAS_LINARES_JULIO\"
'
Application.ScreenUpdating = False
Application.StatusBar = False
On Error Resume Next
u = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To u
Application.StatusBar = "Copiando archivo : " & i & " de : " & u
arch = Cells(i, "A")
If Dir(ruta1 & arch) <> "" Then
FileCopy ruta1 & arch, ruta2 & arch
werr = Err.Number
If werr = 0 Then
Cells(i, "B") = "Copia existosa"
Else
Cells(i, "B") = "Error: " & werr & " " & Err.Description
End If
Else
Cells(i, "B") = "No existe el archivo"
End If
Err.Number = 0
Next
Application.StatusBar = False
Application.ScreenUpdating = True
MsgBox "Fin copiar"
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
El viernes no podía escribir ni valorar tu ayuda, no me dejaba la página, hoy por fin puedo y quería darte las gracias, me has ayudado mucho.
