Hi,
I am doing the VBA code for creating reports in xls.
I want to know the xls build version and servicepack
informatiom.Although I could get the build and version but
can't get the servicepack information.
for e.g. I want to restict the user using version below
Excel 2002 and servicepack i.e.SP-2.
how do I get this.
Does anybody know this?
Thanks,
-sanjay

Hi Sanjay,

Sub XL_Version()
Dim T(1 To 8, 1 To 2) As String, i As Integer, xlVersion As String
For i = 1 To 8
T(i, 1) = Choose(i, "2000", "2000 SR1", "2000 SP2" _
, "2000 SP3", "XP", "XP SP1", "XP SP2", "XP SP3")
T(i, 2) = Choose(i, "9.0.0.2719", "9.0.0.3822", "9.0.0.4402" _
, "9.0.0.6926", "10.0.2614.0", "10.0.3506.0", "10.0.4302.0", "10.0.6501.0")
Next i
xlVersion = Application.VERSION & "." & Application.Build
For i = LBound(T) To UBound(T)
If InStr(1, T(i, 2), xlVersion) Then GoTo 1
Next i
MsgBox "Excel version: Unknown !", 64
Exit Sub
1: MsgBox "Excel version: " & T(i, 1) & " (" & T(i, 2) & ")", 64
End Sub

Regards,
MP

"sanjay wankhede" a écrit dans le message de
...
Hi,
I am doing the VBA code for creating reports in xls.
I want to know the xls build version and servicepack
informatiom.Although I could get the build and version but
can't get the servicepack information.
for e.g. I want to restict the user using version below
Excel 2002 and servicepack i.e.SP-2.
how do I get this.
Does anybody know this?
Thanks,
-sanjay

There seems to be too many leading zeros for the 9.0 series, eg 9.0.3822,
not 9.0.0.3822. Not sure about the 10.0 versions.

Mike F
"Michel Pierron" wrote in message
...
Hi Sanjay,

Sub XL_Version()
Dim T(1 To 8, 1 To 2) As String, i As Integer, xlVersion As String
For i = 1 To 8
T(i, 1) = Choose(i, "2000", "2000 SR1", "2000 SP2" _
, "2000 SP3", "XP", "XP SP1", "XP SP2", "XP SP3")
T(i, 2) = Choose(i, "9.0.0.2719", "9.0.0.3822", "9.0.0.4402" _
, "9.0.0.6926", "10.0.2614.0", "10.0.3506.0", "10.0.4302.0",
"10.0.6501.0")
Next i
xlVersion = Application.VERSION & "." & Application.Build
For i = LBound(T) To UBound(T)
If InStr(1, T(i, 2), xlVersion) Then GoTo 1
Next i
MsgBox "Excel version: Unknown !", 64
Exit Sub
1: MsgBox "Excel version: " & T(i, 1) & " (" & T(i, 2) & ")", 64
End Sub

Regards,
MP

"sanjay wankhede" a écrit dans le message de
...
Hi,
I am doing the VBA code for creating reports in xls.
I want to know the xls build version and servicepack
informatiom.Although I could get the build and version but
can't get the servicepack information.
for e.g. I want to restict the user using version below
Excel 2002 and servicepack i.e.SP-2.
how do I get this.
Does anybody know this?
Thanks,
-sanjay

Thanx both of you for replying.
Is there any direct windows API to get this information or
some registry entry we can search on?
Thanx and regards
-sanjay
-----Original Message-----
There seems to be too many leading zeros for the 9.0
series, eg 9.0.3822,
not 9.0.0.3822. Not sure about the 10.0 versions.

Mike F
"Michel Pierron" wrote in message
...
Hi Sanjay,

Sub XL_Version()
Dim T(1 To 8, 1 To 2) As String, i As Integer,
xlVersion As String
For i = 1 To 8
T(i, 1) = Choose(i, "2000", "2000 SR1", "2000 SP2" _
, "2000 SP3", "XP", "XP SP1", "XP SP2", "XP SP3")
T(i, 2) = Choose
(i, "9.0.0.2719", "9.0.0.3822", "9.0.0.4402" _
, "9.0.0.6926", "10.0.2614.0", "10.0.3506.0", "10.0.4302
..0",
"10.0.6501.0")
Next i
xlVersion = Application.VERSION & "." &
Application.Build
For i = LBound(T) To UBound(T)
If InStr(1, T(i, 2), xlVersion) Then GoTo 1
Next i
MsgBox "Excel version: Unknown !", 64
Exit Sub
1: MsgBox "Excel version: " & T(i, 1) & " (" & T(i, 2)
& ")", 64
End Sub

Regards,
MP

"sanjay wankhede" a écrit
dans le message de
...
Hi,
I am doing the VBA code for creating reports in xls.
I want to know the xls build version and servicepack
informatiom.Although I could get the build and
version but
can't get the servicepack information.
for e.g. I want to restict the user using version
below
Excel 2002 and servicepack i.e.SP-2.
how do I get this.
Does anybody know this?
Thanks,
-sanjay




.