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
Buenas tardes.
Y si en lugar de copiar todos los ficheros en las rutas indicadas, fuera un fichero, una ruta.
Es decir, el fichero de la b4, copiarlo en la ruta del f5, el fichero de la b5, copiarlo en la ruta del f6.
Puedes ayudarme ?
Muchas gracias por tu tiempo y ayuda !!!
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Buenas tardes.
Y si en lugar de copiar todos los ficheros en las rutas indicadas, fuera un fichero, una ruta.
Es decir, el fichero de la b4, copiarlo en la ruta del f5, el fichero de la b5, copiarlo en la ruta del f6.
Puedes ayudarme ?
Muchas gracias por tu tiempo y ayuda !!!