Detectar Version de Excel

[basualtotj]

Hola amigos, necesito detectar la version de excel que esta instalado en una maquina, esto ira en un autorun, en base a la respuesta el usuario sabra que version de mi aplicacion debe instalar, de antemano Muchas Gracias.

Alguien conoce algun codigo que realice eso?

Saludos.

Atte.
Fernando

[luciano]

Probá esta función a ver si te sirve .salu2

Código:

Private Function ver() As Variant

Dim OExcel As Object
Dim TempVer As Variant
Set OExcel = CreateObject("Excel.Application")

On Error Resume Next

TempVer = OExcel.version

If Err = 0 Then
   ver = TempVer
End If

OExcel.quit
Set OExcel = Nothing

Err.Clear

End Function

Private Sub Form_Load()
MsgBox ver
End Sub

[basualtotj]

Muchas Gracias, Funciona correctamente.

La version 12, se refiere al Office 2007
La version 11, se refiere al Office 2003
La version 10, se refiere al Office XP
La version 9, se refiere al Office 2000

Eso esta correcto?

Un Saludo

Gracias.