TOleAuto() No cierra el proceso EXCEL.EXE

Board index FiveWin para Harbour/xHarbour TOleAuto() No cierra el proceso EXCEL.EXE

Posts: 601

Joined: Wed Jul 04, 2007 03:51 PM

TOleAuto() No cierra el proceso EXCEL.EXE
Posted: Tue Feb 14, 2012 01:21 PM

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 (fw): Select all Collapse

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.

Ojeda Esteban Eduardo.

Buenos Aires - Argentina.

FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport

Skype: jreduojeda

sysctrl2

Posts: 1144

Joined: Mon Feb 05, 2007 07:15 PM

Re: TOleAuto() No cierra el proceso EXCEL.EXE
Posted: Tue Feb 14, 2012 09:06 PM

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

Code (fw): Select all Collapse

#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

Cesar Cortes Cruz

SysCtrl Software

Mexico

' Sin +- FWH es mejor "

colthop

Posts: 505

Joined: Sat Apr 22, 2006 09:09 AM

Re: TOleAuto() No cierra el proceso EXCEL.EXE
Posted: Wed Feb 15, 2012 06:19 AM

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

Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es

Nunca se termina de aprender, por eso necesito siempre ayuda.

FiveTech Support Forums

Continue the discussion