FiveTech Software tech support forums

Posted: **Thu Apr 12, 2018 4:57 pm**

Saludos.

Hace tiempo expuse el mismo tema de hoy y sigo teniendo problemas para cerrar correctamente un archivo abierto de excel...

Tengo esto:

Code: Select all

  bSalida:=Mensaje('...','Importando codigos de excel SAT')
  oExcel:=TOleAuto():New( "Excel.Application" )
  oExcel:WorkBooks:Open('P:\tmp\CSAT.xlsx')
  oHoja := oExcel:Get( "ActiveSheet" )
  nRows := oHoja:UsedRange:Rows:Count()
  nCols := oHoja:UsedRange:Columns:Count()
  //
  //
  oExcel:Quit()
  eval(bSalida)

Abre el archivo de excel sin problemas, el caso es que no se como cerrarlo.
Al final le doy el oExcel:Quit() pero el archivo abierto se queda asi, al intentar abrirlo con EXCEL me dice "Solo lectura" y pues igual no lo puedo eliminar.

Ayuda porfa...

Posted: **Thu Apr 12, 2018 5:37 pm**

Intenta asi,

Code: Select all

   oExcel:DisplayAlerts := .F.

   oWorkBook:Close()

   oExcel:Quit()
     
   oWorkBook := NIL

   oHoja := NIL

   oExcel := NIL
     
   Release oWorkBook
   Release oHoja
   Release oExcel

Saludos.

Posted: **Thu Apr 12, 2018 6:39 pm**

Solucionado con:

oExcel:WorkBooks:Close()
oExcel:Application:Quit()

gracias.

FiveTech Software tech support forums

Cerrar bien archivo abierto de Excel, Ayuda

Cerrar bien archivo abierto de Excel, Ayuda

Re: Cerrar bien archivo abierto de Excel, Ayuda

Re: Cerrar bien archivo abierto de Excel, Ayuda