¿Cómo copiar archivos de una carperta a otra con VBA?

La instrucción FileCopy en VBA se utiliza para copiar un archivo de una ubicación a otra en el sistema de archivos. A continuación, te muestro cómo utilizarla:

VBA
FileCopy "RutaDeOrigen\archivo.txt", "RutaDeDestino\nuevoarchivo.txt"

Explicación:

  1. FileCopy: Esta es la instrucción que indica a VBA que deseas copiar un archivo.
  2. «RutaDeOrigen\archivo.txt»: Aquí debes especificar la ruta del archivo que deseas copiar. Reemplaza «RutaDeOrigen\archivo.txt» con la ubicación y el nombre del archivo que deseas copiar.
  3. «RutaDeDestino\nuevoarchivo.txt»: Debes especificar la ubicación y el nombre del archivo de destino. Reemplaza «RutaDeDestino\nuevoarchivo.txt» con la ubicación y el nombre que deseas para el archivo copiado.

A continuación, te muestro un ejemplo completo de cómo usar FileCopy en un procedimiento en VBA:

VBA
Sub CopiarArchivo()
    Dim RutaOrigen As String
    Dim RutaDestino As String
    
    ' Rutas de origen y destino
    RutaOrigen = "C:\CarpetaOrigen\archivo.txt"
    RutaDestino = "D:\CarpetaDestino\nuevoarchivo.txt"
    
    ' Copiar el archivo
    FileCopy RutaOrigen, RutaDestino
    
    ' Comprobar si se copió correctamente
    If Dir(RutaDestino) <> "" Then
        MsgBox "El archivo se copió exitosamente."
    Else
        MsgBox "Hubo un problema al copiar el archivo."
    End If
End Sub

En este ejemplo, hemos definido las rutas de origen y destino como variables para mayor claridad. Luego, utilizamos la instrucción FileCopy para copiar el archivo de la ruta de origen a la ruta de destino. Después, verificamos si el archivo se copió correctamente utilizando la función Dir. Esto nos permite mostrar un mensaje de éxito o de error.

Asegúrate de proporcionar rutas válidas y de tener los permisos adecuados para copiar archivos en las ubicaciones especificadas.

Conoce nuestra tienda

Ver más productos

Mejora tu nivel y logra tus objetivo

Excel

Excel cursos

Access

cursos de Access

Power BI

cursos power BI

Ayúdanos a hacer crecer el proyecto

¡Únete a nuestro Grupo de Facebook!