Microsoft Web Components

[Jan Morten Blanch]

Hi

I am using the spreadsheet component for Internet Explorer. In our
envionment we have different versions of Office. Is there a way to
check what version of Office Web Component which is installed?

Cheers
Jan Morten

 

[Alvin Bruney [MVP]]

The trick here is to try to create the object. If it fails then it is not
registered or not present.

Here is the code.



Sub CheckForOWC()

Dim objOWC

Dim retval on error resume next

Dim downloadPath downloadPath =
"http://download.microsoft.com/download/OfficeXPStandard/owc10/1033/WIN98MeXP/EN-US/owc10.exe"

Set objOWC = CreateObject("OWC10.Chartspace")



if(objOWC is nothing) then if msgbox ("O.W.C. v10 is a required
component.",3,"Critical component missing!") = 6 then

window.navigate(downloadPath)

end if

End Sub

copied from tinyurl.com/27cok