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 (http://cobolforo.es/showthread.php?t=50&p=153)

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 (http://cobolforo.es/showthread.php?t=104&p=419)