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