最近公司的电脑把系统从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