excel - 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

我在使用 VBA 时遇到了类似的错误，并且
使用 Set objIE = New InternetExplorerMedium而不是 Set objIE = CreateObject("InternetExplorer.Application")没有解决问题。我通过转到 IE 设置 -> Internet 选项 -> 安全并取消选中“启用保护模式”选项 解决了这个问题。