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

Preguntas similare

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

Responder a este mensaje

#2 Cesar

03/05/2005 - 23:44 | Informe spam

Gracias KL,

Había leído algo en la ayuda de Excel sobre la propiedad DisplayAlerts, pero
no había leído sobre su manejo.

De nuevo gracias por tu pronta respuesta.

César G.
Soporte Técnico

"KL" escribió en el mensaje
news:

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

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida