TOleAuto() No cierra el proceso EXCEL.EXE

[jrestojeda]

Hola a todos...
Estoy haciendo un pequeño proceso que exporta datos a Excel y funciona bien y rápido, lo estoy haciendo con TOleAuto() pero el problemita que estoy teniendo es que al finalizar queda el proceso EXCEL.EXE corriendo en el administrador de tareas.
A grueso modo estoy hacieno lo siqguiente

Code: Select all  Expand view

Function Main()

MsgInfo("A") // Acá verifico y el proceso EXCEL.EXE y aún no está corriendo
oExcel:=TOleAuto():New( "Excel.Application" )
MsgInfo("B") // Acá verifico y el proceso ya está corriendo.
oExcel:Quit()
oExcel:End()
oExcel:=nil
MsgInfo("C") // Acá verifico y el proceso queda corriendo.

Return nil
 

Info Adicional:
Uso Windows 7 y Oficce 2010.

Espero alguien pueda ayudarme.
Desde ya muchas gracias.
Saludos, Esteban.

[sysctrl2]

amigo prueba, compilando este ejemplo:
a ver si hace lo mismo.
saludos..

Code: Select all  Expand view

#include <fivewin.ch>

function Main()
   local oExcel, oBook, oSheet
   
   oExcel := CREATEOBJECT( "Excel.Application" )
   oBook  := oExcel:WorkBooks:Add()  
   
   oSheet := oBook:Worksheets(1)
   oSheet:name:='PRUEBA'
   
   oExcel:Sheets( 'PRUEBA'  ):Select()
   
   oSheet := oExcel:Get( "ActiveSheet" )      
   
   oExcel:Visible = .T.
   
   oSheet:Cells( 1, 1 ):Value =    'Titulo 1'
   oSheet:Cells( 1, 2 ):Value =    'Titulo 2'
   oSheet:Cells( 1, 3 ):Value =    'Titulo 3'
   
   oSheet:Rows( 1 ):Font:Bold   := .T.
   
   oBook:saveAS( 'Prueba.xls')
   
   ? 'cerrar el obj...'
   
   oExcel:Quit()  
   
return nil

[colthop]

holoa Esteban.

A mi me pasaba lo mismo y ahura cierro asi:

oHoja:=NIL
oWorkBook:SaveAs(fichsali)
oExcel:Quit()
oExcel:=NIL

Y cierra el proceso EXCEL.EXE

Un saludo

Carlos