如何使用vba在沒有href的情況下點擊IE中的鏈接，onclick？

Question

Sub sales_ann() 

Dim objIE As InternetExplorer 
Dim ele As Object 
Dim y As Integer 
Set objIE = New InternetExplorer 
objIE.Visible = True 

    objIE.navigate "http://data.eastmoney.com/bbsj/201603/yjyg.html" 
    Do While objIE.Busy = True Or objIE.readyState <> 4: DoEvents: Loop 


    For Each ele In objIE.Document.getElementsByTagName("tbody") 

    Debug.Print ele.textContent 

    y = 2 
    For i = 0 To 49 
    Sheets("sale_ann").Range("A" & y).Value = ele.Children(i).Children(0).textContent 
    Sheets("sale_ann").Range("B" & y).Value = ele.Children(i).Children(1).textContent 
    Sheets("sale_ann").Range("C" & y).Value = ele.Children(i).Children(2).textContent 
    Sheets("sale_ann").Range("D" & y).Value = ele.Children(i).Children(3).textContent 
    Sheets("sale_ann").Range("E" & y).Value = ele.Children(i).Children(4).textContent 

    y = y + 1 
    Next i 

Next 

objIE.Quit 
Set IE = Nothing 

End Sub 

步驟1：

<li class="at2" data="0">業績預告<i></i></li> 
<li data="1" class="">業績預增<i></i></li> 
<li data="2" class="">業績預減<i></i></li> 
<li data="3" id="fpygTab" class="">分配預告<i></i></li> 

步驟2：

<span class="clickspan">業績變動幅度</span> 

我想要做什麼是點擊按鈕 「數據=」 1 「」，其由JavaScript 生成，然後點擊「 class =「clickspan」「之前我在」tbody「中抓取數據。 我試過execScript和getElementsByClassName("").click()，但它沒有工作。有人告訴我使用document.querySelector（）和dispatchEvent（clickEvent），但沒有工作。我該怎麼辦？

Answer 1

最簡單的方法是使用document.querySelector()和dispatchEvent()。

var clickEvent = new MouseEvent('click', { 
    'view': window, 
    'bubbles': true, 
    'cancelable': true 
}); 
document.querySelector('li[data="1"]').dispatchEvent(clickEvent); 
document.querySelector('span.clickspan').dispatchEvent(clickEvent);