时间戳

首页 > 解决方案 > 使用 Excel 宏在网站上搜索 Word 是否存在

excel - 使用 Excel 宏在网站上搜索 Word 是否存在

问题描述

我有一张带有 A1-A200 URL 的 Excel 表格。由于我是宏的新手，所以我想问一下是否有一个宏可以在 excel 中打开网站（不在浏览器中打开）并搜索例如：“存在错误”如果单词存在返回与B1 中选择“是”，否则为“否”。

提前致谢。您的帮助将不胜感激。

标签： excel

解决方案

您可以使用 VBA 的 InternetExplorer 并转到网页并查看 html。
此代码从 1 循环到 200 并使用 A 列中的 url 并使用 instr 搜索是否存在“有错误”。 

Dim ie As InternetExplorer


Dim html As HTMLDocument
Set ie = New InternetExplorer

For i = 1 To 200
    ie.Visible = False
    ie.navigate Range("A" & i).Value

    Do While ie.readyState <> READYSTATE_COMPLETE
    DoEvents
    Loop

    Set html = ie.document
    If InStr(html.DocumentElement.innerHTML, "there is an error") Then
        Range("B" & i).Value = "Yes"
    Else
        Range("B" & i).Value = "No"
    End If
Next i

Set ie = Nothing

您需要添加两个引用。转到工具 -> 参考并添加“Microsoft Internet 控件”和“Microsoft HTML 对象库”

推荐阅读