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


ネタ元