html - VBA - 运行时错误 424 - 需要对象

Question

尝试使用 Getelementsbytagname 在 IE 浏览器上单击超链接并引用内部文本但收到

424 错误

上If Link1.InnerText =线

Sub OpenIE()

Dim objIE As InternetExplorer
Set objIE = New InternetExplorer

'Make Explorer visible
objIE.Visible = True

'Open browser
objIE.navigate "https://allabout-japan.com/en/article/287/"

Do While objIE.Busy = True Or objIE.readyState <> 4: DoEvents: Loop

Dim LINK1 As Object

For Each LINK1 In objIE.document.getElementsByTagName("a")
    If LINKl.innerText = "Tokyo Dining" Then
        LINKl.Click
        Exit For
    End If
Next LINK1

标签： htmlexcelvbaweb-scraping