Wie vba zu verwenden, um Link in IE ohne href, onclick klicken?

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 

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

Schritt 2:

<span class="clickspan">业绩变动幅度</span> 

, was ich tun möchte, ist die Schaltfläche "data =" 1 "", die von Javascript erzeugt und dann auf " class = "clickspan" "bevor ich Daten in" tbody "schabe". Ich habe versucht execScript und getElementsByClassName("").click(), aber es hat nicht funktioniert.Einige sagen mir, document.querySelector() und dispatchEvent (clickEvent) zu verwenden, aber nicht funktioniert zu.was soll ich tun?

Answer 1

Der einfachste Weg, dies zu tun ist wahrscheinlich mit document.querySelector() und 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);