HMGforum.com

Posted: **Wed Dec 16, 2015 2:44 pm**

Me pareció una buena idea la de verificar la existencia del ejecutable así que hice esto:

PROC INIEXCEL

LOCAL cFolderOffice := GetProgramFilesFolder()+'\Microsoft Office\'
LOCAL nOffi

   IF HB_DirExists(cFolderOffice)
      FOR nOffi = 10 TO 20
         cFoldOffiX := cFolderOffice+'Office'+ALLTRIM(STR(nOffi))+'\'
         IF HB_DirExists(cFoldOffiX)
            cFileExcel := cFoldOffiX+'Excel.exe'
            IF FILE(cFileExcel)
               SYS_OFFICE := .T.   //<-- Esta es una variable pública que declaro al inicio.
               MsgInfo( 'Excel existe en '+cFileExcel )
               EXIT
            ENDIF
         ENDIF
      NEXT
   ENDIF

RETURN

Por ahora funciona y funcionará siempre y cuando Microsoft no decida cambiar los nombres de las carpetas en futuras versiones

Saludos cordiales a todos amigos.

Posted: **Wed Dec 16, 2015 9:14 pm**

Very perspective function - till 20th version of M$ Office

Thanks for sharing!

HMGforum.com

Verificar si EXCEL esta instalado

Re: Verificar si EXCEL esta instalado

Re: Verificar si EXCEL esta instalado