copiar archivos a otras carpetas

[MarianoCruz]

Buenas tardes. Necesito de su ayuda con un archivo que utilizare para enviar una lista de archivos a otras carpetas.

En la columna B tengo listado varios archivos (ruta y nombre) variada.  estos archivos debo copiarlos como 1 solo (todos los archivos de la columna) a varias rutas listados en la columna F. 

Teniendo como resultado los mismos archivos en las rutas puestas en la columna F

Esperando me puedan ayudar con mi archivo.

Saludo a todos, bonita tarde.

Mariano

 

Copiar un rango de datos a diferentes carpetas.xlsm

[Israel Cassales]

¿Por qué usar Excel para hacer esas transferencias?

¿No te convendría un archivo .bat?

Solo necesitas dos archivos de texto: origen.txt que contiene las rutas de los archivos (una por línea) y destino.txt que contiene las rutas de destino (una por línea). Asegúrate de que estos archivos estén en la misma carpeta que tu script .bat

Un código como este debería servir:

@echo off
setlocal enabledelayedexpansion

:: Leer las rutas de los archivos en un array
set i=0
for /f "delims=" %%a in (origen.txt) do (
    set /a i+=1
    set "archivo[!i!]=%%a"
)

:: Leer las rutas de destino en un array
set j=0
for /f "delims=" %%b in (destino.txt) do (
    set /a j+=1
    set "destino[!j!]=%%b"
)

:: Copiar cada archivo a cada destino
for /l %%i in (1,1,%i%) do (
    for /l %%j in (1,1,%j%) do (
        echo Copiando !archivo[%%i]! a !destino[%%j]!
        xcopy "!archivo[%%i]!" "!destino[%%j]!" /E /I /Y
    )
)

endlocal

Este script lee las rutas de los archivos y las rutas de destino de los archivos de texto, y luego copia cada archivo a cada destino.

Un archivo de Txt debería ser más o menos así:

origen.txt

C:\Users\Mariano\informaciones\1. Of. 213300EL040407.pdf
C:\Users\Mariano\Recapitulaciones\20.U254 \2.63,179.pdf
C:\Users\Mariano\listas\1.docus\manuales.pdf
C:\Users\Mariano\listas\1.docus\postales.xlsx

El otro:

destino.txt

C:\Users\Marcos\Documents\Pruebas\Mago
C:\Users\Marcos\Documents\Pruebas\Mover Carpeta\A donde
C:\Users\Marcos\Documents\Pruebas\Mover Carpeta\A donde

Algo como eso debería ser útil.

[Israel Cassales]

También hay diferentes opciones, mira estas las copie de Google:

Existen varias alternativas para mover archivos entre equipos

Uso de comandos del sistema operativo: Los sistemas operativos como Windows, MacOS y Linux tienen comandos incorporados que puedes usar para mover archivos. Por ejemplo, en Windows puedes usar el comando move en la línea de comandos.

Programas de sincronización de archivos: Existen programas como Dropbox, Google Drive, y OneDrive que te permiten sincronizar archivos entre diferentes equipos.

Herramientas de transferencia de archivos en red: Hay herramientas como FileZilla, WinSCP y otros clientes de FTP/SFTP que puedes usar para mover archivos entre equipos en una red.

Scripts de PowerShell o Bash: Puedes escribir scripts en PowerShell (para Windows) o Bash (para Linux/MacOS) para mover archivos. (Como el .bat del ejemplo anterior)

Herramientas de gestión de proyectos: Algunas herramientas de gestión de proyectos como GanttPRO permiten organizar y compartir documentos en una sola plataforma.

[Israel Cassales]

Ahora, sea cual sea la opción que elijas (incluso si lo haces por VBA) hay recomendaciones a tomar en cuenta siempre que se mueve algo entre equipos que están o no en una misma RED.

Permisos: Debes tener los permisos adecuados para leer los archivos en el equipo de origen y para escribir en el equipo de destino.

Firewall y Antivirus: Los firewalls y los programas antivirus pueden bloquear las transferencias de archivos. Es posible que necesites configurar estas herramientas para permitir la transferencia.

Rutas de archivos: Las rutas de los archivos y las carpetas deben ser válidas en ambos equipos. Si una ruta no es válida, la transferencia de archivos fallará.

Red: Si estás transfiriendo archivos a través de una red, debes asegurarte de que ambos equipos estén conectados a la misma red. Además, la velocidad de la red puede afectar el tiempo que tarda la transferencia.

Espacio de almacenamiento: El equipo de destino debe tener suficiente espacio de almacenamiento para los archivos que se van a transferir.

Sistema Operativo: El sistema operativo de ambos equipos puede afectar la forma en que se manejan las transferencias de archivos. Por ejemplo, los sistemas operativos pueden tener diferentes limitaciones de tamaño de archivo.

Compatibilidad de formato de archivo: Los archivos que se van a transferir deben ser compatibles con el sistema operativo y el software del equipo de destino.

[Israel Cassales]

Para finalizar mi participación en esta consulta y consideras aún usar Excel, te paso una macro que cumple con lo que solicitas en tu libro:

Sub CopiarArchivos()
    Dim ws As Worksheet
    Dim srcPath As Range
    Dim destPath As Range
    Dim file As Variant
    Dim dest As Variant
    Set ws = ThisWorkbook.Sheets("Hoja1")
    Set srcPath = ws.Range("B4:B11")
    Set destPath = ws.Range("F4:F11")
    For Each file In srcPath
        If file.Value <> "" Then
            For Each dest In destPath
                If dest.Value <> "" Then
                    FileCopy file.Value, dest.Value & "\" & Dir(file.Value)
                End If
            Next dest
        End If
    Next file
End Sub

En ese código solo estoy validando que no haya celdas vacías en los rangos que proporcionaste, pero no estoy manejando qué hacer si surgen otros tipos de errores, éstos los debes de anticipar con lo que te he descrito anteriormente.

Saludines

[Israel Cassales]

¡Ah! Si manejas direcciones IP, entonces las rutas deberían quedar más o menos así y considerando que un equipo tuviera la dirección 192.168.1.100

\\192.168.1.100\C:\Users\Marcos\Documents\Pruebas\Mago

La IP cambia de acuerdo al DHCP asignado en tu RED