根据工作表中的内容从网站获取数据

Sub try() Dim ie As Object Dim MyHTML_Element As IHTMLElement Dim MyURL As String Dim MyURLSer As String Set ie = CreateObject("InternetExplorer.Application") On Error GoTo Err_Clear MyURL = "[http://test.com/login][1]" Set MyBrowser = New InternetExplorer MyBrowser.Silent = True MyBrowser.navigate MyURL MyBrowser.Visible = True Do Loop Until MyBrowser.readyState = READYSTATE_COMPLETE Set HTMLDoc = MyBrowser.document HTMLDoc.all.j_username.Value = "User" 'Enter your email id here HTMLDoc.all.j_password.Value = Password'Enter your password here For Each MyHTML_Element In HTMLDoc.getElementsByTagName("input") If MyHTML_Element.Type = "button" Then MyHTML_Element.Click: Exit For Next On Error GoTo Err_Clear MyURL = "http://test.com/home" Set MyBrowser = New InternetExplorer MyBrowser.Silent = True MyBrowser.navigate MyURL MyBrowser.Visible = True Err_Clear: If Err <> 0 Then Err.Clear Resume Next End If End Sub 

我的问题是，当我尝试input我想在网站search的号码，我无法做到这一点。 无法进入提交button。

 <FORM name=menuSearchForm id=menuSearchForm style="PADDING-BOTTOM: 0px; PADDING-TOP: 0px; PADDING-LEFT: 0px; MARGIN: 0px; PADDING-RIGHT: 0px" action=abc/search/default method=post> <INPUT name=searchKeyword class=search-field id=search value="Enter number" jQuery19101740035784191712="16"> <TD class=search_btn><A style="MARGIN: 0px" onclick=javascript:submitSearch(); href="javascript:void(0);"> 

Answer 1

尝试直接运行JavaScript。

 Call HTMLDoc.parentWindow.execScript("submitSearch();", "javascript") 

a元素中的href被设置onClick都不做，但onClick被设置为运行上面的脚本。