problema cuando exporto a excel

[analoyra]

Hola otra vez!!

tengo esta rutina para exportar a excel un listview, anda perfecto salvo cuando cierrro excel sin guardar
seria esta parte

.ActiveWorkbook.SaveAs App.Path & "listado.xls

como puedo ponerle para que me tire un mensaje en VB si quiero salir sin guardar?

gracias

PD: si a alguien le interesa toda la rutina me la piden y la posteo

[boluart]

Puedes llamar a:

Código:

 
.ActiveWindow.Close

al hacerlo te mostrara un mensaje preguntandote si deseas guardar (Esto siempre en cuando se haya hecho cambios)

Pero si lo que deseas es que este cuadro no se muestre, puedes deshabilitar este mensaje

Código:

 
.DisplayAlerts = False

y simeplemente se cerrara sin guardar cambios