Metodo Save as ...

03/05/2005 - 20:21 por Cesar | Informe spam

Muy buenos días a todos

Antes que nada, muchas gracias por leer este mensaje.

Solamente tengo una pregunta que hacer; intento guardar un libro como sigue
en una macro con Excel 97, de la siguiente manera:

ActiveWorkbook.SaveAs FileName:= _
"C:\BaseMayo02\Db.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False

Pero el problema es que, si el libro existe, envía el cuadro de diálogo para
reemplazar el archivo, si se acepta la sobreescritura no hay problema, pero
si se pulsa sobre el "No" desencadena el error No '1004', y la ejecución se
detiene.

Me parece que existía alguna propiedad para evitar el mentado cuadro de
diálogo, o alguna opción del método SaveAs, o bien, recomendarían tratar el
error y actuar en consecuencia?

Mil gracias por sus comentarios ..

César G.
Soporte Técnico

Siga el debate

2 respuestas

Tengo una respuesta

DRAGON AGE™: INQUISITION – Matadragones

Leer las respuestas

#1 KL

03/05/2005 - 21:31 | Informe spam

Hola Cesar,

A continuacion te pongo dos macros para las dos opciones.

Saludos,
KL

Sub test()
'Si quieres forzar la sustitucion del
'fichero ya existente usa este macro.
Ruta = "C:\BaseMayo02\Db.xls"
If Dir(Ruta) = "" Then
MsgBox "El directorio no existe."
Else
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=Ruta
End If
End Sub

Sub test2()
'Si quieres dar la posibilidad
'de cancelar la operacion si ya
'existe el archivo ysa este.
Ruta = "C:\BaseMayo02\Db.xls"
If Dir(Ruta) = "" Then
MsgBox "El directorio no existe."
Else
On Error Resume Next
ActiveWorkbook.SaveAs Filename:=Ruta
End If
End Sub

Leer las otras respuestas

Preguntas similares

Busqueda sugerida :