G
Guest
Hi,
I'd like to know how to get Excel version (2000, 2002, 2003, etc).
Thanks in advance
I'd like to know how to get Excel version (2000, 2002, 2003, etc).
Thanks in advance
H
Herfried K. Wagner [MVP]
* "=?Utf-8?B?TGkgUGFuZw==?= said:
What if there is more than one excel version installed?
G
Guest
Get the highest version.
Herfried K. Wagner said:What if there is more than one excel version installed?
G
Guest
I wrote a sample code which worked
Private Sub DetectExcelVersion()
Dim i As Integer
For i = 20 To 1 Step -1
Try
If IsReference(CreateObject("Excel.Application" & "." & i)) Then
MsgBox("Excel version is " & i)
End If
Catch ex As Exception
MsgBox(ex.Message.ToString & " Excel.Application" & "." & i)
End Try
Next
End Sub
Private Sub DetectExcelVersion()
Dim i As Integer
For i = 20 To 1 Step -1
Try
If IsReference(CreateObject("Excel.Application" & "." & i)) Then
MsgBox("Excel version is " & i)
End If
Catch ex As Exception
MsgBox(ex.Message.ToString & " Excel.Application" & "." & i)
End Try
Next
End Sub