Copiar archivos .CSV de una carpeta a otra

¿Podríais ayudarme a hacer una macro para pasar 120 archivos csv de una carpeta que tiene 1351 archivos a otra?

1 respuesta

Respuesta
1

Puedes utilizar la misma macro.

Cambia las Ruta1 y Ruta2 (origen y destino)

En tu hoja de excel en la columna A, escribe los nombres de los archivos .csv

Sub Copiar_CSV()
'Por.Dante Amor
    ruta1 = "C:\FICHAS_LINARES_TODAS\"
    ruta2 = "C:\FICHAS_LINARES_JULIO\"
    '
    Application.ScreenUpdating = False
    Application.StatusBar = False
    On Error Resume Next
    u = Range("A" & Rows.Count).End(xlUp).Row
    For i = 1 To u
        Application.StatusBar = "Copiando archivo : " & i & " de : " & u
        arch = Cells(i, "A")
        If Dir(ruta1 & arch) <> "" Then
            FileCopy ruta1 & arch, ruta2 & arch
            werr = Err.Number
            If werr = 0 Then
                Cells(i, "B") = "Copia existosa"
            Else
                Cells(i, "B") = "Error: " & werr & " " & Err.Description
            End If
        Else
            Cells(i, "B") = "No existe el archivo"
        End If
        Err.Number = 0
    Next
    Application.StatusBar = False
    Application.ScreenUpdating = True
    MsgBox "Fin copiar"
End Sub

Avísame cualquier duda

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas