Sección de códigos , trucos y ejemplos para visual basic

303 - Comprobar si el Access, Word Excel se encuentran instalados

La siguiente función muestra una forma de poder determinar si en el sistema se encuentran instaladas las aplicaciones de Word, Microsoft Excel , Access, asi como también otras aplicaciones y activex que se puedan acceder mediante automatización creando una referencia a los mismos con CreateObject

En el ejemplo se intenta crear una referencia al objeto, si esta da error es por que no se pudo acceder.

La función que comprueba retorna False o true según el caso

Código en el form

Option Explicit ' \\ -- Función Boolean ' ------------------------------------------------------------------- Private Function Comprobar(Clase_Application As String) As Boolean Dim Objeto As Object ' Deshabilitar errores temporalmente On Error Resume Next ' -- Crear una referencia al objeto Set Objeto = CreateObject(Clase_Application) ' -- No dío error If Err.Number <> 0 Then Comprobar = False Else ' .. error Comprobar = True ' -- Eliminar referencia Set Objeto = Nothing End If ' -- Limpiar error On Error GoTo 0 End Function ' \\ -- Botón ' ------------------------------------------------------------------- Private Sub Command1_Click() ' -- Verificar si puede acceder al Excel MsgBox " Instalado :" & Comprobar("Excel.Application"), , " Excel " ' -- Verificar si puede acceder a Microsoft Word MsgBox " Instalado :" & Comprobar("Word.Application"), , " Word" ' -- Microsoft Access MsgBox " Instalado :" & Comprobar("Access.Application"), , " Access " ' -- Microsoft OutLook MsgBox " Instalado :" & Comprobar("Outlook.Application"), , " Outlook " End Sub

Recursos vb 6.0 - Enlaces relacionados

Obtener ruta de instalación del office

Buscar en Recursos vb