亚洲在线久爱草,狠狠天天香蕉网,天天搞日日干久草,伊人亚洲日本欧美

為了賬號安全,請及時綁定郵箱和手機立即綁定
已解決430363個問題,去搜搜看,總會有你想問的

如何單擊網站中的菜單欄選項?

如何單擊網站中的菜單欄選項?

ITMISS 2023-12-11 15:39:09
我想編寫代碼來單擊網站中的菜單。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 對象庫函數。
查看完整描述

2 回答

?
收到一只叮咚

TA貢獻1821條經驗 獲得超5個贊

嘗試導航到hrefa標簽的(通過其 id 獲取父標簽)

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


查看完整回答
反對 回復 2023-12-11
?
弒天下

TA貢獻1818條經驗 獲得超8個贊

也許是這樣,但我無法測試它,因為你的網址不適合我 HTMLDoc.getElementById("yui-gen1").nextPageElement.Click



查看完整回答
反對 回復 2023-12-11
  • 2 回答
  • 0 關注
  • 147 瀏覽

添加回答

舉報

0/150
提交
取消
微信客服

購課補貼
聯系客服咨詢優惠詳情

幫助反饋 APP下載

慕課網APP
您的移動學習伙伴

公眾號

掃描二維碼
關注慕課網微信公眾號