如何使Excel VBA在IE中自动点击javascript链接

Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")

ie.Visible = True '设置IE窗口可见性
ie.Navigate "https://example.com" '替换为目标网页的URL

Do While ie.Busy Or ie.readyState <> 4
    DoEvents
Loop

Dim link As Object
Set link = ie.Document.getElementById("linkId") '替换为目标链接的ID
link.Click

Sub AutoClickLinkInIE()
    Dim ie As Object
    Set ie = CreateObject("InternetExplorer.Application")
    
    ie.Visible = True
    ie.Navigate "https://example.com"
    
    Do While ie.Busy Or ie.readyState <> 4
        DoEvents
    Loop
    
    Dim link As Object
    Set link = ie.Document.getElementById("linkId")
    link.Click
    
    Set ie = Nothing
End Sub