2024年4月29日发(作者：)

优词网

掌握更多工具：如何用Excel抓取网站title

有人说到自己手里有200多个站，火车头批量采集内容更新，小日子过的虽然不能说

美不胜收，相比较于自己做三五个站还累得不行，差距为何这么大？因为我们掌握的工具

太少了。本可以程序化的东西，只能人工来，当然不可能提升效率。尤其是检查网站

title、description更是痛苦万分，那么下面这几个函数应当是解放劳动力的先进生产力！

说白了，其实是一些工具用的到位，可以帮助你省去很多人工。

例子：excel批量获取网页title

同事L想把自己的网站的TKD修改下，思考之后，觉得需要先把页面现有的TKD弄出

来，说干就干，开始打开网址，查看源代码，将url、tkd记录在excel中。一个两个网址，

不会觉得什么，其实多了，我知道，大家都会嫌烦。

那就试着用工具去做一些事情吧：

第一步，需要先把网址弄出来

获取网址，其实完全可以通过导航，网站地图等去复制源代码，然后批量替换，分列

去获取网址及对应的栏目名称。

第二步，用excel里面的vba去获取TKD

打开excel，按alt+f11，在弹出的窗口中点击【插入】，插入【模块】，然后在模块

中插入如下代码：

Function Title(ByVal url As String) As String

On Error Resume Next

url = “” & Replace(url, “”, “”)

With CreateObject(“P”)

.Open “get”, url, False

.send

Title = Split(Split(.responsetext, ““)(1), ““)(0)

End With

优词网

End Function

注意：标绿处为函数名称，标红处为你想获取内容所在代码位置前后的唯一的标识。

点击保存，然后关闭当前窗口，这时，在你的excel中就出现了一个名为title的函

数。然后=title（你想要的title的网址），OK。

然后，修改标红处，你就可以批量获得keywords与description啦。

Function Keywords(ByVal url As String) As String

On Error Resume Next

url = “” & Replace(url, “”, “”)

With CreateObject(“P”)

.Open “get”, url, False

.send

Keywords = Split(Split(.responsetext, “

content=”"”)(1), “”"”)(0)

End With

End Function

Function Description(ByVal url As String) As String

On Error Resume Next

url = “” & Replace(url, “”, “”)

With CreateObject(“P”)

.Open “get”, url, False

.send

Description = Split(Split(.responsetext, “

content=”"”)(1), “”"”)(0)

优词网

End With

End Function

把代码用txt记下来，多用几次，记住步骤，一切都变的so easy了。

Excel功能强大，仔细研究总能有意外收获。掌握这些函数之后，您是否可以举一反

三呢？