FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour C贸mo detectar no haber salvado libro de Excel? (SOLUCIONADO)
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
C贸mo detectar no haber salvado libro de Excel? (SOLUCIONADO)
Posted: Sun Aug 17, 2025 05:56 PM
Amigo:

Tengo el siguiente c贸digo
   cDir	:= cGetDir("Elija la carpeta donde guardar el archivo !",)

   CursorWait()

   IF ! Empty(AllTrim(cDir))
      oExcel:Get("ActiveWorkBook"):SaveAs(cDir + "\" + oVar:FIL)
   ELSE
      MsgInfo("El usuario decidi贸 no guardar el archivo !",oApp:cAplicacion)
   ENDIF

   oSheet:=NIL
   oExcel:Quit()
   oExcel:=NIL
En este c贸digo se pide al usuario especifique donde desea guardar el archivo Excel reci茅n creado,
si el usuario lo especifica se guarda el archivo y se cierra la hoja y salimos de Excel, hasta ah铆 todo
excelente.

Si el usuario decide no conservar el archivo, se env铆a el mensaje de su decisi贸n pero al final el archivo
se queda en memoria y excel se queda esperando a que el usuario decida guardar o no el archivo.

Pregunta. desde mi aplicaci贸n, 驴 c贸mo "le digo" a Excel que el usuario decidi贸 no conservar el archivo ?
y no se quede esperando

Saludos a todo el foro
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: C贸mo detectar no haber salvado libro de Excel?
Posted: Sun Aug 17, 2025 09:07 PM
This is all you need:
   cDir	:= cGetDir("Elija la carpeta donde guardar el archivo !",)

   CursorWait()

   IF ! Empty(AllTrim(cDir))
      oExcel:ActiveWorkBook:SaveAs(cDir + "\" + oVar:FIL)
   ELSE
      MsgInfo("El usuario decidi贸 no guardar el archivo !",oApp:cAplicacion)
      oExcel:ActiveWorkbook:Close( .F. )
   ENDIF

   oExcel:Quit()
These are not needed:
oSheet:=NIL
oExcel:=NIL
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: C贸mo detectar no haber salvado libro de Excel?
Posted: Tue Aug 19, 2025 03:37 AM

Enrico:

Perfecto !, funcion贸 al 100%

Muchas gracias, Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

Continue the discussion