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

#excel #vba createobject internetexplorer application

jayhan 2020-01-18 00:30:58 ‧ 4748 瀏覽

分享至

不知道發生甚麼問題，執行下面簡單呼叫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

paicheng0111 iT邦大師 5 級 ‧ 2020-01-18 14:02:21 檢舉

發生在哪一行?

jayhan iT邦新手 5 級 ‧ 2020-01-18 18:03:02 檢舉

createobject那一行

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

2 個回答

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

回應
分享
檢舉

登入發表回應

paicheng0111

iT邦大師 5 級 ‧ 2020-01-18 21:01:09

看看能不能幫上忙
https://support.microsoft.com/zh-tw/help/828550/you-receive-run-time-error-429-when-you-automate-office-applications

回應
分享
檢舉

登入發表回應

我要發表回答

立即登入回答