Cerrar bien archivo abierto de Excel, Ayuda

[noe aburto]

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...

[karinha]

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.

[noe aburto]

Solucionado con:

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

gracias.