我想編寫代碼來單擊網站中的菜單。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 回答
- 0 關注
- 147 瀏覽
添加回答
舉報
0/150
提交
取消