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
'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!,.
