第一篇文章。不知道该怎么做。从来没有从网站检索过数据。可以通过VBA导航到带有打开报告选项的页面，但是此时一切都从html到Javascript到打开报告。我将如何打开报告？导航到页面或从表中提取数据没有问题
<div id='delivery_reports' class='menu' onMouseover='aMenu(this);'>
<table>
<tr>
<td nowrap><a href="javascript:handleHyperlink('finish.do')"
class="mainSubLink">finish Report</a></td>
</tr>
<tr>
<td nowrap><a href="javascript:handleHyperlink('start.do')"
class="mainSubLink">start Report</a></td>
</tr>
<tr>
<td nowrap><a href="javascript:handleHyperlink('control.do')"
class="mainSubLink">control report</a></td>
</tr>
<tr>
<td nowrap><a href="javascript:handleHyperlink('data_start.do')"
class="mainSubLink">data start Report</a></td>
</tr>
</table>
</div>
例如，我将如何导航到控制报告？
任何帮助表示赞赏，谢谢
您可以使用该IE.Navigate方法（假设IE是您的InternetExplorer对象）。你会做类似的事情IE.Navigate "javascript:handleHyperlink('control.do')"
请务必注意，该页面的HTML文档将被重新加载（或者，这是我需要使用的一次），因此，在您使用该页面的HTML元素后，您在该页面上引用HTML元素的所有变量都必须重新分配。导航方法。
一个更完整的示例：
Sub Test()
Dim ie As InternetExplorer
Dim doc As HTMLDocument
Set ie = New InternetExplorer
ie.Navigate "http://www.yoururl.com"
'Wait for page to load
Do While ie.Busy Or Not ie.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
Set doc = ie.document
'Do whatever manipulation of the HTML document you need
ie.Navigate "javascript:handleHyperlink('control.do')"
'Wait for page to load
Do While ie.Busy Or Not ie.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
'Reassign document
Set doc = ie.document
'Further manipulation
End Sub
这就是我根据使某些代码能够满足我自己的需求而找到它的方式。也许有更好的方法。
您可以使用两种方法（我知道）来执行JavaScript函数。第一个是execScript，另一个是FireEvent。记住那IE是你的InternetExplorer对象。
exec脚本
IE.document.all.Item
Call IE.document.parentWindow.execScript("handleShowAllLines()", "JavaScript")
此外，由于js代码与按钮绑定在一起，因此您还可以按以下方式使用FireEvent：
IE.Document.GetElementsByTagName("showAllLinesButton").Item(0).FireEvent("onclick")
此方法假定只有一个名称为“ showAllLinesButton”的按钮。如果不是这种情况，则必须将中的索引0调整为.Item(0)需要单击的正确按钮的索引。
我没有测试过任何一种方法，也不能完全确定一种方法相对于另一种方法的优点/缺点。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句