Macro para copiar varios archivos de excel de una carpeta a otra
Estoy empezando a incursionar en las macro y necesito de su ayuda con una macro que me copie los archivos de excel de una carpeta a otra.
1 Respuesta
Respuesta de Dante Amor
2
Te anexo la macro para copiar datos de una carpeta a otra, actualiza los nombres de las carpetas los nombres de tus carpetas.
Sub CopiarArchivos() 'Por.Dante Amor carpeta1 = "C:\Pruebas\origen\" 'carpeta con los archivos carpeta2 = "C:\pruebas\dir2\" 'Carpeta destino ' arch = Dir(carpeta1 & "*") Do While arch <> "" FileCopy carpeta1 & arch, carpeta2 & arch arch = Dir() Loop MsgBox "Fin" End Sub
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
