IEのバージョンを調べる

[excelVBA]

Dim IEA As Object
Dim FSO As Object
 
Set IEA = CreateObject("InternetExplorer.Application")
Set FSO = CreateObject("Scripting.FileSystemObject")
 
MsgBox "IEのバージョンは" & FSO.GetFileVersion(IEA.FullName) & "です。"
 
Set FSO = Nothing
IEA.Quit: Set IEA = Nothing

ネタ元

• http://accesskid.wordpress.com/2011/05/31/%E3%82%A4%E3%83%B3%E3%82%B9%E3%83%88%E3%83%BC%E3%83%AB%E3%81%95%E3%82%8C%E3%81%A6%E3%81%84%E3%82%8Bie%E3%81%AE%E3%83%90%E3%83%BC%E3%82%B8%E3%83%A7%E3%83%B3%E3%82%92%E5%8F%96%E5%BE%97%E3%81%99%E3%82%8B/