Macro Copiar Pegar Archivos

Buenos Días:
Nuevamente recurre a su todopoderosa experiencia y sabiduría para resolver una duda de macros de excel.
Estoy tratando de realizar una macro que me copie unos arhcivos de una ruta a otra, es decir:
Tengo los archivos ejemplo.xls, prueba.txt, guía.ppt en C:\documentos.
Copiarlos a D:\documentos antiguos.
No se si eso se pueda realizar, he intentado varias cosas pero no me han resultado muy bien, gracias por la ayuda que me puedan brindar.

1 respuesta

1
Respuesta de
Hola.
Creo que esta simple macro de abajo hace lo que pides.
Saludos
Angel
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Sub CopiaFichero()
       CarpetaOrigen = "C:\documentos"
       CarpetaDestino = "D:\documentos antiguos"
       Fichero1 = "ejemplo.xls"
       Fichero2 = "prueba.txt"
       Fichero3 = "guia.ppt"
       FileCopy CarpetaOrigen + "\" + Fichero1, FicheroDestino + "\" + Fichero1
       FileCopy CarpetaOrigen + "\" + Fichero2, FicheroDestino + "\" + Fichero2
       FileCopy CarpetaOrigen + "\" + Fichero3, FicheroDestino + "\" + Fichero3
End Sub
Añade un comentario a esta respuesta
Añade tu respuesta
Haz clic para o
Escribe tu mensaje