Anuncios

martes, 2 de noviembre de 2021

✅ Aprende Como Copiar y Pegar Archivos MASIVAMENTE en Excel con Macros - VBA

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

¿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


Macro para copiar y pegar archivos de un sitio a otra carpeta en Excel

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.


Macro para copiar y pegar archivos de un sitio a otra carpeta en Excel


la macro sería la siguiente:

Nombramos las variables como texto

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.


Aprende y Enseña Excel.

No hay comentarios:

Publicar un comentario