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

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 object 库函数。

Answer 1

也许是这样，但我无法测试它，因为你的 url 对我不起作用 HTMLDoc.getElementById("yui-gen1").nextPageElement.Click

Answer 2

尝试导航到子 a 标签的 href（通过其 ID 获取父标签）

ie.navigate2 HTMLDoc.querySelector("#yui-gen1 a").href

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

How to click menubar option in a website?

html

excel

vba

getelementbyid

web-scraping