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

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 HTMLDoc.querySelector("#yui-gen1 a").href

Answer 2

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