最近公司的電腦把系統(tǒng)從win7切換到了win10米间，發(fā)現(xiàn)之前寫(xiě)的網(wǎng)頁(yè)自動(dòng)化程序無(wú)法運(yùn)行滩援，
調(diào)試后發(fā)現(xiàn)關(guān)鍵原因是InternetExplorer對(duì)象無(wú)法創(chuàng)建?
不管是使用CreateObject("InternetExplorer.Application")
還是使用 New?InternetExplorer 都不能創(chuàng)建
看了大量的博客都未找到解決方案栅隐，后來(lái)無(wú)意中看到這樣一段代碼：
> Dim TheBrowser = New SHDocVw.InternetExplorerMedium
> TheBrowser.Visible = True?
> TheBrowser.Navigate( _?
> URL:="http://visualbasic.about.com")?
突發(fā)奇想，嘗試了一下問(wèn)題解決玩徊！
測(cè)試代碼如下租悄，如果你也遇到類(lèi)似問(wèn)題，別糾結(jié)安全設(shè)置問(wèn)題恩袱，也趕緊試試吧泣棋！
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 '在窗體加載時(shí)轉(zhuǎn)交操作權(quán)
?Loop
?MsgBox "success"
End Sub
