：前段时间群里闲聊，一哥们说到自己手里有200多个站，火车头批量采集内容更新，买点外链，待网站权重上去后，卖点链接，卖卖广告，小日子过的虽然不能说美不胜收，但总归也是凑合。

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

例子：excel批量获取网页title

同事L想把自己的网站的TKD修改下，思考之后，觉得需要先把页面现有的TKD弄出来，说干干，开始打开网址，查看源代码，将url、tkd记录在excel中。一个两个网址，不会觉得什么，其实多了，我知道，大家都会嫌烦。

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

步，需要先把网址弄出来

获取网址，其实完全可以通过导航，网站地图等去复制源代码，然后批量替换，分列去获取网址及对应的栏目名称。

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

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

【成都南奇网络】cdnanqi.cnFunction Title(ByVal url As String) As String On Error Resume Next url = “http://” & Replace(url, “http://”, “”) With CreateObject(“Msxml2.XMLHTTP”) .Open “get”, url, False .send Title = Split(Split(.responsetext, “<title>“)(1), “</title>“)(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 = “http://” & Replace(url, “http://”, “”) With CreateObject(“Msxml2.XMLHTTP”) .Open “get”, url, False .send Keywords = Split(Split(.responsetext, “<meta name=””keywords”” content=”””)(1), “”””)(0) End With End Function

Function Description(ByVal url As String) As String On Error Resume Next url = “http://” & Replace(url, “http://”, “”) With CreateObject(“Msxml2.XMLHTTP”) .Open “get”, url, False .send Description = Split(Split(.responsetext, “<meta name=””description”” content=”””)(1), “”””)(0) End With End Function

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

嗯？你说啥？前面说到了一个火车头？哈哈，近我也一直在尝试着使用，待全部熟悉了，再给大家继续分享。

推荐阅读

用工具去拿来-借助工具使SEO便捷快捷化 | 邛崃网络公司   https://cdnanqi.cn/qionglai/1245.html