iT邦幫忙

0

VBA createobject("internetexplorer.application") 執行階段錯誤'-2146959355 (80080005)

不知道發生甚麼問題,執行下面簡單呼叫IE網頁的時候會出現:
執行階段錯誤'-2146959355 (80080005)
伺服器執行失敗

不知道有沒有人知道問題出在哪?

Sub test2()
Dim myIEo As Object
Set myIEo = CreateObject("internetexplorer.application")
With myIEo
.Visible = True
.navigate "https://tw.yahoo.com/"
Do While .Busy Or .ReadyState <> 4
DoEvents
Loop

End With

End Sub

發生在哪一行?
jayhan iT邦新手 5 級 ‧ 2020-01-18 18:03:02 檢舉
createobject那一行

2 個回答

0
player
iT邦大師 1 級 ‧ 2020-01-20 20:52:25
最佳解答

你要不要改用我的方法
1.先設定引用Microsoft Internet Controls
2.改用InternetExplorer物件去操作

Sub test2()
Dim myIEo As InternetExplorer
Set myIEo = New InternetExplorer

With myIEo
.Visible = True
.navigate "https://tw.yahoo.com/"
Do While .Busy Or .ReadyState <> 4
DoEvents
Loop
End With

End Sub

或自行參考
http://www.player.idv.tw/prog/index.php/Word#.E5.A4.A7.E9.87.8F.E6.93.B7.E5.8F.96.E6.9F.90.E7.B6.B2.E7.AB.99.E7.9A.84.E6.96.87.E5.AD.97.E5.85.A7.E5.AE.B9.28.E5.BC.B7.E5.8C.96.E7.89.882.29

我要發表回答

立即登入回答