VBA-从IE中的部分中提取段落

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了VBA-从IE中的部分中提取段落相关的知识,希望对你有一定的参考价值。

我想从此链接中提取文章的每个部分中的文本:

http://iuhealth.org/search/results/global/Memorial%20Sloan%20Kettering%20Cancer%20Center/P1/

    Slink = "http://iuhealth.org/search/results/global/Memorial%20Sloan%20Kettering%20Cancer%20Center/P1/"
With httpRequest
    .Open "GET", Slink, False
    .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    .send
End With
With httpRequest
    While Not .readyState = 4
        Application.Wait Now + TimeValue("0:00:01")
    Wend
    If .Status = 200 Then
        While InStr(1, .responseText, "Updating", 0) > 0
            Application.Wait Now + TimeValue("0:00:01")
        Wend
        Set ohtml = New HTMLDocument
        oHtml.body.innerHTML = .responseText
    End If
End With

ReDim title(0)
ReDim LinkS(0)
ReDim Spec(0)

Set aelem = oHtml.getElementsByTagName("article")
MsgBox aelem.Length
For Each ele In aelem

Next ele

我能够获得Header,即“Stephen D. Beck,MD |寻找医生| IU Health”,但不是段落。

答案

我会使用Web测试框架Selenium,并为它编写了一个VBA包装器。阅读https://codingislove.com/browser-automation-in-excel-selenium/

根据我的经验提示:如果您使用Chrome,则在从https://florentbr.github.io/SeleniumBasic/安装SeleniumBasic后,您将需要使用https://sites.google.com/a/chromium.org/chromedriver/中的最新chromedriver.exe替换C: Users your_Windows_ID AppData Local SeleniumBasic chromedriver.exe

以上是关于VBA-从IE中的部分中提取段落的主要内容,如果未能解决你的问题,请参考以下文章

如何从同一数据库的 VBA 代码中的 MS ACCESS 中提取字段

获取从VBA中的段落获得的行的第一个单词的索引号

用Excel中的vba获取网页内容填写网页表单

文本分类

文本分类

VBA将值从Google Analytics [在IE中打开]网站复制到Excel