How to check Excel version number with .net?

[Alain \Mbuna\]

Hi everybody.

Does anyone know what code I should use to check for the version number of
Excel, installed on a computer?

Thanks.

Alain.

 

[Herfried K. Wagner [MVP]]

Does anyone know what code I should use to check for the version number of
Excel, installed on a computer?

\\\
Dim o As Object = CreateObject("Excel.Application")
If Not o Is Nothing Then
On Error Resume Next
MsgBox( _
"Installed version of Excel: " & _
DirectCast(o.Version, String) _
)
o.Quit()
On Error GoTo -1
Marshal.ReleaseComObject(o)
Else
MsgBox("Maybe Excel is not installed!")
End If
///

 

[Alain \Mbuna\]

That was fast!!!

Thanks a lot.

Alain.

\\\
Dim o As Object = CreateObject("Excel.Application")
If Not o Is Nothing Then
On Error Resume Next
MsgBox( _
"Installed version of Excel: " & _
DirectCast(o.Version, String) _
)
o.Quit()
On Error GoTo -1
Marshal.ReleaseComObject(o)
Else
MsgBox("Maybe Excel is not installed!")
End If
///

 

[Alain \Mbuna\]

What is the Marshal thing???

This word is underlined in the code, saying it is not declared???

Alain.

 

[Colin Neller]

Import System.Runtime.InteropServices

--
Colin Neller
http://www.colinneller.com/blog

What is the Marshal thing???

This word is underlined in the code, saying it is not declared???

Alain.

 

[Chris]

\\\
Dim o As Object = CreateObject("Excel.Application")
If Not o Is Nothing Then
On Error Resume Next
MsgBox( _
"Installed version of Excel: " & _
DirectCast(o.Version, String) _
)
o.Quit()
On Error GoTo -1
Marshal.ReleaseComObject(o)
Else
MsgBox("Maybe Excel is not installed!")
End If
///

If you looked in help you would see it.

Try:
System.Runtime.InteropServices.Marshal.ReleaseComObject(o)

 

[Herfried K. Wagner [MVP]]

What is the Marshal thing???

This word is underlined in the code, saying it is not declared???

Import the namespace 'System.Runtime.InteropServices'. It's used to release
the Excel COM object to free Excel.

 

[Paul Clement]

¤ Hi everybody.
¤
¤ Does anyone know what code I should use to check for the version number of
¤ Excel, installed on a computer?
¤

You can also use the FindExecutable API function call (which doesn't launch the Excel application):

Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" (ByVal lpFile As
String, _
ByVal lpDirectory As
String, _
ByVal lpResult As
System.Text.StringBuilder) As Int32

Function IsExcelInstalled(ByRef FileVersionMajor As String) As Boolean

Dim DummyFile As String
Dim FileDir As String

Dim FilePath As New System.Text.StringBuilder(255)
DummyFile = "e:\My Documents\book1.xls"

If FindExecutable(DummyFile, FileDir, FilePath) > 32 Then
IsExcelInstalled = True
FileVersionMajor =
System.Diagnostics.FileVersionInfo.GetVersionInfo(FilePath.ToString).FileMajorPart
End If

End Function


Paul
~~~~
Microsoft MVP (Visual Basic)