*----------------------------------------------------
* FUNCTION FindExcel
* Busca si MS Excel está instalado en la PC
*----------------------------------------------------
* Located at: http://www.portalfox.com/article.php?sid=142
FUNCTION FindExcel
  LOCAL lcErrorAnt, loApp, CR
  CR = CHR(13)
  lcErrorAnt = ON("ERROR")
  ON ERROR DO _MiError
  loApp = CREATEOBJECT("Excel.Application")
  IF VARTYPE(loApp) = "O"
    MESSAGEBOX("Name: " + loApp.NAME + CR + ;
      "Version: " + loApp.VERSION + CR + ;
      "Build: " + TRANSFORM(loApp.BUILD), 64 )
    RELEASE loApp
  ELSE
    MESSAGEBOX("Word not installed", 16)
  ENDIF
  ON ERROR &lcErrorAnt
  RETURN
ENDFUNC

*----------------------------------------------------
* PROCEDURE _MiError
* Usado por BuscaWord y BuscaExcel
*----------------------------------------------------
PROCEDURE _MiError
  RETURN
ENDPROC