如何单击网站中的菜单栏选项？

Question

我想编写代码来单击网站中的菜单。

Sub SearchBot()

    

    Dim ie As Object

    Dim HTMLDoc As MSHTML.HTMLDocument

    Dim ckt_No As String

    ckt_No = Range("A2").Value

    Set ie = CreateObject("InternetExplorer.Application")

    ie.Visible = True

    ShowWindow ie.hwnd, SW_MAXIMIZE

    ie.Navigate "http://gamit.web.att.com/gamitx/welcome.htm"

    Do While ie.Busy = True Or ie.ReadyState <> 4: DoEvents: Loop

    Set HTMLDoc = ie.Document

    HTMLDoc.getElementById("yui-gen1").Focus

    HTMLDoc.getElementById("yui-gen1").Click

      

    Do While ie.Busy = True Or ie.ReadyState <> 4: DoEvents: Loop

    Stop 'Press SHIFT + F9 and examine the window...

菜单

在检查菜单时我得到了 HTML 代码

VBA 没有抛出任何错误，但它没有单击菜单。

运行代码后菜单如下所示

我的 VBA 编辑器中有 Microsoft Internet 控件、Microsoft HTML 对象库函数。

Answer 1

尝试导航到href子a标签的（通过其 id 获取父标签）ie.navigate2&nbsp;HTMLDoc.querySelector("#yui-gen1&nbsp;a").href

Answer 2

也许是这样，但我无法测试它，因为你的网址不适合我&nbsp;HTMLDoc.getElementById("yui-gen1").nextPageElement.Click