*----------------------------------------------------
* FUNCTION BuscaExcel
*----------------------------------------------------
* Busca si Excel está instalado
* RETORNO: .T. Si Excel está instalado
* USO: ? BuscaExcel
*----------------------------------------------------
FUNCTION BuscaExcel
	LOCAL lcArchivo, lc, lcRutaExe, llRet

	*--- Creo un archivo .xls
	lcArchivo = SYS(5) + "\" + SYS(3) + ".xls"
	STRTOFILE("*", lcArchivo, .T. )

	lc = SPACE(0)
	lcRutaExe = SPACE(128)
	llRet = .F.

	DECLARE INTEGER FindExecutable IN shell32 ;
		STRING @lcArchivo, ;
		STRING @lc, ;
		STRING @lcRutaExe

	*--- Busco el archivo asociado a .xls
	IF FindExecutable(@lcArchivo, @lc, @lcRutaExe) > 32
		IF "EXCEL.EXE" $ UPPER(lcRutaExe)
			llRet = .T.
		ENDIF
	ENDIF
	DELETE FILE (lcArchivo)
	RETURN llRet
ENDFUNC

*----------------------------------------------------