怎样用VBA模拟点击已打开的网页
<a onclick="Match.SendTrainMatch(569691,3,'奥本山宫');" href="javascript:;"><img width="15" height="15" title="挑战" id="imgFightvs3" src="/Images/fightvs.png" border="0"></a>
Set ie = CreateObject("internetexplorer.application")
ie.Visible = True
ie.Navigate "********"
Do While ie.readystate <> 4
DoEvents
Loop
For Each a In ie.document.getElementsByTagName("a")
If a.onclick= "Match.SendTrainMatch(569691,3,'奥本山宫');" Then a.Click::Exit For
Next
Set ie = Nothing
如果用RUNJS怎么写?