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:
Código VB:
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:
Código COBOL:
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