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

jmarinrobles · el 18 de agosto

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 · el 18 de agosto

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]