我需要将输入输入到此网页http://kepler.sos.ca.gov/中,然后在单击提交按钮后收集信息。第一部分(inputs+click提交)运行顺畅:
Dim ie As InternetExplorer
'to refer to the HTML document returned
Dim html As HTMLDocument
'open Internet Explorer in memory, and go to website
Set ie = New InternetExplorer
ie.Visible = True
ie.navigate "http://kepler.sos.ca.gov/"
'Wait until IE is done loading page
Do While ie.readyState <> READYSTATE_COMPLETE
DoEvents
Loop
Set html = ie.document
html.getElementById("ctl00_content_placeholder_body_BusinessSearch1_RadioButtonList_SearchType_1").Click
html.getElementById("ctl00_content_placeholder_body_BusinessSearch1_TextBox_NameSearch").innerText = "global telematic solutions, LLC"
html.getElementById("ctl00_content_placeholder_body_BusinessSearch1_Button_Search").Click
Do While ie.readyState <> READYSTATE_COMPLETE
DoEvents
Loop
然后,我需要在新页面的HTML脚本中获取元素的内部文本。问题是我无法从新页面的源代码中提取信息。特别是,我希望能够得到像这样的东西
Dim SearchCount As String
SearchCount = html.getElementById("ctl00_content_placeholder_body_SearchResults1_TextInfoCorp1_TextInfoSearchResultCounts1_Label_RowCount").innerText
问题是"html“仍然指的是前一个页面。我如何指代这个新的?新页面的url与前一个相同。
发布于 2018-06-30 05:20:18
在最后一次单击之后,您需要另一个Set html = ie.document
,以便获得新的文档内容。
html.getElementById("ctl00_content_placeholder_body_BusinessSearch1_Button_Search").Click
While ie.Busy Or ie.READYSTATE < 4: DoEvents: Wend
Set html = ie.document '<== New HTML document content
https://stackoverflow.com/questions/30733392
复制相似问题