Contenido
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:
FileCopy "RutaDeOrigen\archivo.txt", "RutaDeDestino\nuevoarchivo.txt"
Explicación:
- FileCopy: Esta es la instrucción que indica a VBA que deseas copiar un archivo.
- «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.
- «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:
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.