Detectar versión Excel para la creación de tabla dinámica

[The_Crab]

Buenas tardes,

Tengo un problemilla a ver si me podéis echar una mano.

He creado un programa el cual mediante un proceso un poco largo de explicar acaba dando como resultado un archivo en Exel.

El problema viene cuando alguien usa una versión de office diferente a la mía y dentro de excel se genera una tabla dinámica... Por lo que he podido leer en este enlace la función cambia dependiendo de la versión usada.

http://stackoverflow.com/questions/15301158/issue-with-vba-creating-a-pivot-table-is-this-an-excel-version-issue

¿¿Me podría decir alguien como automatizar la identificación de la versión y la correspondiente traducción para que el programa no de errores??

Gracias de antemano

[The_Crab]

Pongo la solución que he encontrado por si a alguien le es de ayuda en el futuro.

un saludo

Private Function ver() As Object

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

On Error Resume Next

TempVer = OExcel.version

If Err.Number = 0 Then
ver = TempVer
End If

OExcel.quit()
OExcel = Nothing

Err.Clear()

End Function

Private Sub Form_Load()
MsgBox(ver)
End Sub