与Internet Explorer的运行时错误462

Question

我想使用VBA从excel访问网页。我可以启动Internet Explorer，并且看到网页出现，但是当我点击“直到internet.ReadyState> = 4行代码”时，出现运行时错误462。有任何想法吗？最终我希望能够解析网站并获取该网站上的链接列表并选择一个，然后在该链接上单击“单击”。建议和帮助会很好。这里是函数（即我在网上找到），我现在用：

Public Sub clicklick() 

Dim internet As Object 
Dim internetdata As Object 
Dim div_result As Object 
Dim header_links As Object 
Dim link As Object 
Dim URL As String 

Set internet = CreateObject("InternetExplorer.Application") 
internet.Visible = True 

URL = "https://www.google.co.in/search?q=how+to+program+in+vba" 
internet.Navigate URL 


Do Until internet.ReadyState >= 4 
    DoEvents 
Loop 

Application.Wait Now + TimeSerial(0, 0, 5) 

Set internetdata = internet.Document 
Set div_result = internetdata.getelementbyid("res") 


Set header_links = div_result.getelementsbytagname("h3") 

For Each h In header_links 
    Set link = h.ChildNodes.Item(0) 
    Cells(Range("A" & Rows.count).End(xlUp).row + 1, 1) = link.href 
Next 

MsgBox "done" 

End Sub 

谢谢你， 艾伦

Answer 1

尝试replcaing台词：

Do Until internet.ReadyState >= 4 
    DoEvents 
Loop 

Application.Wait Now + TimeSerial(0, 0, 5) 

有了：

While internet.busy 
    DoEvents 
Wend 

完整代码（测试）

Option Explicit 

Public Sub clicklick() 

Dim internet As Object 
Dim internetdata As Object 
Dim div_result As Object 
Dim header_links As Object 
Dim link As Object 
Dim h As Object 
Dim URL As String 

Set internet = CreateObject("InternetExplorer.Application") 
internet.Visible = True 

URL = "https://www.google.co.in/search?q=how+to+program+in+vba" 
internet.Navigate URL 

internet.Visible = True 

While internet.busy 
    DoEvents 
Wend 

Set internetdata = internet.Document 
Set div_result = internetdata.getelementbyid("res") 

Set header_links = div_result.getelementsbytagname("h3") 

For Each h In header_links 
    Set link = h.ChildNodes.Item(0) 
    Cells(Range("A" & Rows.Count).End(xlUp).Row + 1, 1) = link.href 
Next 

MsgBox "done" 

End Sub