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

我想编码点击一个网站的菜单

subsearchbot（）
模糊的物体
将HTMLDoc设置为MSHTML.HTMLDocument
调暗ckt_编号为字符串
ckt_No=范围（“A2”）.值
设置ie=CreateObject（“InternetExplorer.Application”）
可见=真实
显示窗口ie.hwnd、SW\U最大化
即“导航”http://gamit.web.att.com/gamitx/welcome.htm"
当ie.Busy=True或ie.ReadyState 4:DoEvents:Loop时执行
设置HTMLDoc=ie.Document
HTMLDoc.getElementById（“yui-gen1”）.Focus
HTMLDoc.getElementById（“yui-gen1”）。单击
当ie.Busy=True或ie.ReadyState 4:DoEvents:Loop时执行
停止'按SHIFT+F9并检查窗口。。。

菜单

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

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

运行代码后，菜单如下所示

---

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

可能是这样，但我无法测试，因为您的url不适合我

---

HTMLDoc.getElementById（“yui-gen1”）.nextPageElement。单击

可能是这样，但我无法测试它，因为您的url对我不起作用

---

HTMLDoc.getElementById（“yui-gen1”）.nextPageElement。单击
尝试导航到子
a
标记的
href
（通过其id获取父项）

尝试导航到子
a
标记的
href
（通过其id获取父项）

谢谢你的答复。。。。。在使用此代码时，我遇到了类似“对象不支持此属性或方法”的错误，感谢您的回复。。。。。在使用此代码时，我遇到了类似“对象不支持此属性或方法”的错误@QHarr。。。。。太棒了：）：）。。。。。超级的。。。！！！这段代码运行良好。非常感谢您的支持@QHarr。。。。。太棒了：）：）。。。。。超级的。。。！！！这段代码运行良好。非常感谢你的支持
ie.navigate2 HTMLDoc.querySelector("#yui-gen1 a").href