Ver Mensaje Individual
  #14 (permalink)  
Antiguo 10/02/2011, 17:15
Avatar de Pablus00
Pablus00
 
Fecha de Ingreso: diciembre-2003
Ubicación: A un click de distancia
Mensajes: 1.044
Antigüedad: 15 años, 11 meses
Puntos: 11
Respuesta: FAQ`s Ofimatica

Si tuviste problemas con FileCopy o SaveCopyas en tus macros, el siguiente codigo te resuelve el problema, copia el mismo documento xls o archivos externos sin importar si estan en uso o no (x ej para hacer un backup de tu base de datos access)

Si existe un archivo de destino con el mismo nombre, lo reemplaza por la nueva copia, ideal Backups


Sub Copiar_Archivo()
On Error GoTo NoCopia
Ejemplo con un archivo externo, cambiar la ruta indicada:
origen = ThisWorkbook.Path & "\" & "Base_Datos.mdb"

'En mi caso, tengo mi base de datos en la misma carpeta que el archivo de excel que estoy ejecutando

'Ahora el destino

destino = "C:\backup.mdb"

'Esta ruta la puedes cambiar poniendo un DirListBox y un DriveListBox, eso lo dejo a tu imaginacion
'Ahora como copiar el archivo

Set fs = CreateObject("Scripting.FileSystemObject")
fs.copyfile origen, destino
MsgBox "La copia se realizó con exito", vbInformation, "Copia realizada"

Exit Sub

NoCopia:
If Err.Number > 0 Then
MsgBox Err.Number & " " & Err.Description, , "Error al copiar archivo"
Screen.MousePointer = vbDefault

Err.Clear
Exit Sub
End If

End Sub
__________________
-- Nunca te des por vencido, aún vencido -- Web