En este tutorial aprenderemos a utilizar una macro para copiar y pegar archivos de un sitio a otro MASIVAMENTE
¿Cómo copiar un archivo con macros o VBA en Excel?
En este articulo aprenderemos a utilizar una macro el cual en lo personal ayudo a optimizar tiempos en un proceso empresarial.
Imagina el siguiente caso, actualmente tenemos una carpeta de toda las facturas en PDF realizadas en el año, pueden ser mas de cinco mil facturas y cada mes debemos de recopilar 50 facturas exigidas por un proveedor o cliente, ¿Te imaginas el tiempo que debemos de dedicar para buscar las 50 facturas?
Revisa el siguiente video donde se explica la ejecución de la macro y su utilidad. En la parte inferior puedes descargar la macro.
Este proceso nos permite automatizar un proceso de copiar masivamente archivos y pegarlos en otra carpeta todos los archivos que tenemos en una relación en excel.
Macro para copiar y pegar archivos de un sitio a otra carpeta en Excel
Como pueden ver en la imagen debemos de relacionar los nombres de los archivos que deseamos copiar y pegar de un sitio a otro, para el ejemplo son números de facturas y notas créditos realizadas en un periodo determinado
En otra carpeta tenemos todas los documentos en PDF y debemos de realizar la búsqueda de los documentos relacionados para copiarlos y pegarlos en otra ruta con VBA.
Dim NombreArchivo, RutaArchivos, RutaCopia As String
Nombramos las variables como entero
Dim Fila, Columna As Integer
Para las siguientes variables obtenemos el número con caja de texto
Columna = InputBox("Escríbe el # de la columna")
Fila = InputBox("Escribe El # de la fila Inicial")
FilaFinal = InputBox("Escribe el # de la fila Final")
Importante en esta variable el cual va la ruta de la carpeta donde esta todos los archivos.
RutaArchivos = "\\filefe.siesacloud.com\Interlicores\REAL\PDF\"
Colocamos la ruta donde vamos a pegar los archivos
RutaCopia = "D:\Desktop\Archivos luis\"
Creamos un ciclo para copiar cada uno de los archivos y pegarlos en la otra carpeta
For Variable = 1 To FilaFinal
NombreArchivo = Cells(Fila, Columna)
FileCopy RutaArchivos & NombreArchivo & ".pdf", RutaCopia & NombreArchivo & ".pdf"
Cells(Fila, Columna).Select
With Selection.Interior
.Color = 65535
End With
Fila = Fila + 1
Next
En el siguiente ENLACE puedes DESCARGAR la macro para copiar y pegar archivos masivamente en excel con macros VBA
Seguramente quieres sabes más acerca de Excel, no te olvides darte una vuelta por las siguientes secciones disponibles para ti de manera gratuita:
Canal de YouTube
Comunidad Telegram
Instagram: Aprende y Enseña Excel
Facebook: Aprende Excel Fácil
Twitter: Aprende y Enseña Excel
Hasta una próxima y te deseo el mayor de los EXITOS.
