08/09/2014, 04:02
|
 | | | Fecha de Ingreso: septiembre-2014 Ubicación: Barcelona
Mensajes: 4
Antigüedad: 10 años, 2 meses Puntos: 0 | |
| Respuesta: Detectar versión Excel para la creación de tabla dinámica
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 |