[Duda] Verificar si Excel (Office) está instalado

[Joseg]

Como posso validar se o Excel esta instalado?
Se não tiver instalado dá erro e sai do sistema...

Muito obrigado por qualquer ajuda.

[Kuk]

Joseg, tienes que mirar en el Registro de Windows si hay algo en:

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office

[Joseg]

❞ Joseg, tienes que mirar en el Registro de Windows si hay algo en: HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office

Gracias

[Kuk]

Joseg, para agradecer usa el botón "Gracias".

En dicha rama de Registro de Windows también puedes determinar cual es la versión instalada:

Private Sub Determine_OfficeVersion_1()
        Dim objEApp As Excel.Application 'Excel Object
        Dim strEVersion As String 'Identify Version
 
        objEApp = DirectCast(CreateObject("Excel.Application"), Excel.Application) 'Cast To Excel App
 
        Select Case objEApp.Version 'Determine Version
            Case "7.0"
                strEVersion = "95"
            Case "8.0"
                strEVersion = "97"
            Case "9.0"
                strEVersion = "2000"
            Case "10.0"
                strEVersion = "2002"
            Case "11.0"
                strEVersion = "2003"
            Case "12.0"
                strEVersion = "2007"
            Case "14.0"
                strEVersion = "2010"
        End Select

También lo que he pensado, siguiendo este ejemplo... : Exportar CmListview en Excel - COBOL Foro

Cuando haces:

     INVOKE OLE "CREATE-OBJECT" USING APPLICATION RETURNING EXCEL.

Si el Excel no está instalado, debería de saltar en DECLARATIVES porque viene a ser OLE-EXCEPTION: [Sintaxis] Como descifrar valores de COM-EXCEPTION - COBOL Foro