我尝试编写打开网络浏览器并选择一系列按钮的代码,但是在网页打开后我收到此错误:
运行时错误' -2147417848(80010108) 自动化错误:调用的对象已与其客户端断开连接
我使用的网页只有一个可以从我的服务器访问的网页,所以可能就是这样吗?网页打开正常,当它到达ReadyState代码行时,我收到错误。该代码适用于谷歌和其他网页,但我有一个真正的问题。以下是我的代码:
Sub CommandButton1_Click()
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Top = 0
objIE.Left = 0
objIE.Width = 800
objIE.Height = 600
objIE.AddressBar = 0
objIE.StatusBar = 0
objIE.Toolbar = 0
objIE.Visible = True
objIE.Navigate ("https://mxf85.mcmnt.cbs.edu/")
Do
DoEvents
Loop Until objIE.ReadyState = 4
pageSource = objIE.Document.body.Outerhtml
objIE.Document.GetElementByID("haQuickSearchBox").Value = "Insurance"
objIE.Document.GetElementByID("Submit").Click
Do
DoEvents
Loop Until objIE.ReadyState = 4
MsgBox "Finished"
End Sub
任何帮助将不胜感激!谢谢。