CopyFile Copiar archivos desde varios origenes a distintos destinos, con listado de rutas completas

[jmarinrobles]

Buenas tardes,

En una hoja tengo dos columnas, la primera con las rutas completas de 14000 archivos, que tienen distintas ubicaciones.

Y la segunda, con las carpetas donde tengo que copiar estos archivos. Es decir, el archivo cuya ruta está en A2, tengo que copiarlo en la ruta indicada en B2, igual A3 - B3, y así sucesivamente.

He intentado algunas cosas con CopyFile, pero sinceramente no tengo mucha idea, y sólo consigo copiar un archivo, vamos nada.

Necesito que me indiquen como hacer una macro que los copiase o moviese de una sola vez.

He subido un ejemplo con unos pocos registros.

Un saludo.

Ejemplo.rar

[Antoni]

Hola:

Selecciona las celdas el rango que quieras de la columna A y ejecuta la macro.

Ves seleccionando de 500 en 500 ya que si seleccionas los 14.000 a la vez no se lo que puede tardar.

En la barra de estado irá apareciendo la situación del proceso.

Sub CopiarArchivos()


Dim Origen As Range, Archivos As Object, Contador As Long



Set Archivos = CreateObject("Scripting.FileSystemObject")

For Each Origen In Selection

   Contador = Contador + 1

   Application.StatusBar = Contador & " / " & Selection.Rows.Count & "  " & Origen.Value

   Archivos.CopyFile Origen.Value, Origen.Offset(0, 1).Value

Next

Application.StatusBar = "Listo"



End Sub



[/CODE]

[jmarinrobles]

Hola de nuevo,

Me da error 76 en tiempo de ejecución. "No se ha encontrado la ruta de acceso"

Algo estoy haciendo mal, creo.

[Antoni]

El mensaje es claro, no encuentra el archivo origen o la ruta destino.

Debes seleccionar solo las celdas de la columna A

Lo miro y te digo algo, pero ya no va a ser hoy.

[jmarinrobles]

Hola de nuevo, funciona perfectamente. muchas Gracias por tu ayuda.

Casualmente la primera carpeta origen habia cambiado de nombre y no la encontraba, para volverse loco.

En cuanto termine, y por si surge alguna problemilla, cierro el tema.

Gracias de nuevo.