避坑！ VBA InternetExplorer 对象无法创建

最近公司的电脑把系统从win7切换到了win10，发现之前写的网页自动化程序无法运行，

调试后发现关键原因是InternetExplorer对象无法创建 

不管是使用CreateObject("InternetExplorer.Application")

还是使用 New InternetExplorer 都不能创建

看了大量的博客都未找到解决方案，后来无意中看到这样一段代码：

> Dim TheBrowser = New SHDocVw.InternetExplorerMedium

> TheBrowser.Visible = True 

> TheBrowser.Navigate( _ 

> URL:="http://visualbasic.about.com") 

突发奇想，尝试了一下问题解决！

测试代码如下，如果你也遇到类似问题，别纠结安全设置问题，也赶紧试试吧！

Sub IEtest()

Dim TheBrowser  As New SHDocVw.InternetExplorerMedium

TheBrowser.Visible = True

TheBrowser.navigate ("http://www.baidu.com")

Do Until TheBrowser.ReadyState = READYSTATE_COMPLETE '如果IE加载宏完成

        DoEvents '在窗体加载时转交操作权

 Loop

 MsgBox "success"

End Sub