VBA:从新页面提取HTML (相同的url)
VBA:从新页面提取HTML (相同的url)
提问于 2015-06-09 21:26:32
我需要将输入输入到此网页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与前一个相同。
回答 1
Stack Overflow用户
发布于 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页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/30733392
复制相关文章
相似问题