用工具去拿来-借助工具使SEO便捷快捷化

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

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

例子：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 = “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了。

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

推荐阅读

搜索引擎营销动态—-整合与效果是不变的追求 | 文军营销一、深圳搜索引擎整合营销的高峰会议。峰会将邀请艾瑞咨询集团华南区代表吴畏先生详细解读Baidu、Google、Bing、SOSO、 Sogou 甚至是SEO等众多搜索引擎平台方式各自的特点,并通过行业数据着重探讨搜索引擎营销的重要性以及未来发展趋向。让与会者能一次性地从第三方行业具体数据统计分析的角度客观了解目前为火爆的六大搜索引擎...文章页title的书写规则 | 文军营销比较官方的工具,除了百度的竞价后台外,百度商情也很不错。 3、选择能满足用户明确需求的关键词 能体现用户明确需求的关键词往往字数偏长,seo人员一般称此为长尾关键词,如“杭州两日游路线”“从上海到西塘怎么走”等。我们的产品人员和编辑应该一方面了解用户需求,一方面制作可以满足用户需求的网页,通过将含有用户明确...