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

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
Excelente, me funciona correctamente pero seria lo mismo para borrar los archivos de la carpeta en ves de copiarlos, es decir seria con FileDelete.?
En ese caso utiliza kill para borrarlos una vez copiados:
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
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
       Kill CarpetaOrigen + "\" + Fichero1
       Kill CarpetaOrigen + "\" + Fichero2
       Kill CarpetaOrigen + "\" + Fichero3
End Sub

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
Si consideras que ya está resuelta tut duda, por favor, finaliza la pregunta. Gracias.
Saludos
Angel
Añade un comentario a esta respuesta
Añade tu respuesta
Haz clic para o
Escribe tu mensaje
¿No es la respuesta que estabas buscando? Puedes explorar otras preguntas del tema Microsoft Excel o hacer tu propia pregunta: