Problema-al-guardar-excel

hola a todos:
mi pregunta es la siguiente, tengo un formulario en VB en donde creo un archivo excel aparte dándole una ruta y un nombre para guardar, mi problema esta es que si guardo el archivo dos veces este me lo sobreescribe sin preguntar, pero me gustaría si se puede dar la opción de que pregunte si deseo sobrescribirlo y que no me arroje error al apretar la opción no, y cuando tengo el archivo abierto y lo intento guardar me arroja un error.
'4. Guardamos el libro
With ActiveWorkbook
.Application.DisplayAlerts = False
sFileXLS = ThisWorkbook.Path & "\" & NOMBRE_DOCUMENTO & ".xlsx"
wbNuevoLibro.SaveAs sFileXLS
.Application.DisplayAlerts = True
End With
'5. Cerramos el libro
wbNuevoLibro.Close
MsgBox "Se ha generado el archivo: " & vbCrLf & sFileXLS, vbInformation
esta es la parte del código donde guardo el libro, como ven desactive las alertas para sobreescribirlo sin preguntar
desde ya, muchas gracias a todos :D

1 Respuesta

Respuesta

Tu mismo das la respuesta, debes habilitar las alertas para que te pregunte.

Favor finalizar la pregunta y puntuar!

'4. Guardamos el libro
On Error GoTo errorch
With ActiveWorkbook
sFileXLS = ThisWorkbook.Path & "\" & NOMBRE_DOCUMENTO & ".xlsx"
wbNuevoLibro.SaveAs sFileXLS
End With
'5. Cerramos el libro
wbNuevoLibro.Close
MsgBox "Se ha generado el archivo: " & vbCrLf & sFileXLS, vbInformation
errorch: Exit Sub

Favor finalizar y puntuar!,.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas