Ayuda con codigo

14/10/2005 - 07:00 por DANILO ARANGO | Informe spam

Hola Foro.

ALguien me podria ayudar con lo siguiente:
Tengo un codigo que guarda un archivo, pero necesito que cuando vuelva a
guardar ese archivo y me pregunte que si deseo reemplazar, al decirle que no
me ejecute otro proceso (macro).

De antemano muchas gracias

Sub guardar_archivo()
On Error GoTo ControlError ' Activa la rutina de control de errores.

ActiveWorkbook.SaveAs Filename:="C:\Excel\ppombrearchivo",
FileFormat:= _
xlNormal, CreateBackup:=False

On Error GoTo 0 ' Desactiva la detección de errores.
On Error Resume Next ' Retarda detección de errores.
ControlError: ' Rutina de control de errores.
Select Case Err.Number ' Evalúa el número de error.
Case 55 ' Error "Archivo ya está abierto".
Close #1 ' Cierra el archivo abierto.
Case Else
' Puede incluir aquí otras situaciones...
End Select
'Resume ' Continuar ejecución en la línea que
' causó el error.
End Sub

Siga el debate

6 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#6 DANILO ARANGO

19/10/2005 - 06:40 | Informe spam

Hola HM

Muchas gracias por los codigos
Hm estuve mirando unos archivos y me encontre un codigo que me muestra en
msgbox el codigo del error p.e al ejecutar la macro siguiente dos veces:

On Error GoTo Error

ActiveWorkbook.SaveAs Filename:="C:\archivo.txt", FileFormat:= _
xlText, CreateBackup:=False

Error:
MsgBox "Ha ocurrido el error número: " & CStr(Err.Number) & "." &
vbCrLf & _
" " & Err.Description & vbCrLf & _
"Informacion adicional", vbInformation + vbOKOnly

Me mostro el erro 1004, lo adapte +/- de la siguiente manera:

On Error GoTo ControlError

ActiveWorkbook.SaveAs Filename:="C:\Excel\" & frmguardar.Tex1.Value,
FileFormat:= _
xlText, CreateBackup:=False

On Error GoTo 0 ' Desactiva la detección de errores.
On Error Resume Next ' Retarda detección de errores.
ControlError: ' Rutina de control de errores.
Select Case Err.Number ' Evalúa el número de error.
Case 1004 ' Error "Archivo ya está abierto".
ActiveWorkbook.Close savechanges:=False ' necesito cerrar este libro
Sheets("PLANO_GENERADO").Visible = False 'y ocultar esta hoja
Case Else
' Puede incluir aquí otras situaciones...
End Select
'Resume ' Continuar ejecución en la línea que
' causó el error.

Hasta el momento funciona lo que necesito, dame un opinion o que puedo
hacerle al codigo para que quede mejor :-))

Gracias por tu ayuda
Saludos.
Danilo A.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

1 2

Busqueda sugerida