OLE with Excel.

[byron.hopp]

I find many problems with using OLE with Excel. I believe it is because Excel is running in the background when I attempt to launch a new instance. I attempted to use IsExeRunning("Excel",".",.f.) including many versions with case "EXCEL", and "excel" and it seems it reports accurately on the first call, but incorrectly for every call after. Is there a better way to detect if an executable is running on a workstation?

Thanks,

[Enrico Maria Giordano]

Can you prepare a little sample showing the problem that can be compiled and run?

[byron.hopp]

Just pop this into any app that has a menu so you can call it multiple times without terminating the app.

Function McsExcelRunning()
If IsExeRunning( "excel",".",.F. )
MsgStop( "Excel is currently running...","IsExeRunning" )
Else
MsgInfo( "Excel is not running...","IsExeRunning" )
Endif
Return nil

[Enrico Maria Giordano]

This is a working sample:

Code: Select all  Expand view

#include "Fivewin.ch"


FUNCTION MAIN()

    ? EXELRUNNING()
    ? EXELRUNNING()

    RETURN NIL


STATIC FUNCTION EXELRUNNING()

    LOCAL lRun := .F.

    TRY
        GETACTIVEOBJECT( "Excel.Application" )
        lRun = .T.
    CATCH
    END

    RETURN lRun

[byron.hopp]

Thank you, I will give this a shot.

[byron.hopp]

Works Great, Thank you,

[Jimmy]

hi Byron,

I believe it is because Excel is running in the background when I attempt to launch a new instance.

how do you "close" OLE Connection to Excel ?

Code: Select all  Expand view

  // Start Excel
   oExcel := CreateObject( "Excel.Application" )

   ...

   // Quit Excel
   oExcel:Quit()
   // destroy the reference
   oExcel:destroy()
   oExcel := NIL
   IF ComLastError() > 0

[Enrico Maria Giordano]

oExcel:Quit() is enough.

[Jimmy]

hi,

i´m not sure how under FiveWin but it is recommend to o:Destroy() -> o:End() an ActiveX "Connection" and NIL it

o:Quit() is like close Firefox but still have Internet "Connection"

[nageswaragunupudi]

I find many problems with using OLE with Excel. I believe it is because Excel is running in the background when I attempt to launch a new instance. I attempted to use IsExeRunning("Excel",".",.f.) including many versions with case "EXCEL", and "excel" and it seems it reports accurately on the first call, but incorrectly for every call after. Is there a better way to detect if an executable is running on a workstation?

Thanks,

Please use

Code: Select all  Expand view

oExcel := ExcelObj()

ExcelObj() is a FWH function which takes care of whether Excel is already running.

[Enrico Maria Giordano]

hi,

i´m not sure how under FiveWin but it is recommend to o:Destroy() -> o:End() an ActiveX "Connection" and NIL it

o:Quit() is like close Firefox but still have Internet "Connection"

No, it is not. Quit() method is enough to ensure your instance of Excel is completely removed from memory. Just check it with Task Manager.