Rude：前段時(shí)間群里閑聊，一哥們說(shuō)到自己手里有200多個(gè)站，火車(chē)頭批量采集內(nèi)容更新，買(mǎi)點(diǎn)外鏈，待網(wǎng)站權(quán)重上去后，賣(mài)點(diǎn)鏈接，賣(mài)賣(mài)廣告，小日子過(guò)的雖然不能說(shuō)美不勝收，但總歸也是湊合。

說(shuō)白了，其實(shí)是一些工具用的到位，可以幫助你省去很多人工。

例子：excel批量獲取網(wǎng)頁(yè)title

同事L想把自己的網(wǎng)站的TKD修改下，思考之后，覺(jué)得需要先把頁(yè)面現(xiàn)有的TKD弄出來(lái)，說(shuō)干干，開(kāi)始打開(kāi)網(wǎng)址，查看源代碼，將url、tkd記錄在excel中。一個(gè)兩個(gè)網(wǎng)址，不會(huì)覺(jué)得什么，其實(shí)多了，我知道，大家都會(huì)嫌煩。

那試著用工具去做一些事情吧：

步，需要先把網(wǎng)址弄出來(lái)

獲取網(wǎng)址，其實(shí)完全可以通過(guò)導(dǎo)航，網(wǎng)站地圖等去復(fù)制源代碼，然后批量替換，分列去獲取網(wǎng)址及對(duì)應(yīng)的欄目名稱。

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

打開(kāi)excel，按alt+f11，在彈出的窗口中點(diǎn)擊【插入】，插入【模塊】，然后在模塊中插入如下代碼：

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

注意：標(biāo)綠處為函數(shù)名稱，標(biāo)紅處為你想獲取內(nèi)容所在代碼位置前后的的標(biāo)識(shí)。

點(diǎn)擊保存，然后關(guān)閉當(dāng)前窗口，這時(shí)，在你的excel中出現(xiàn)了一個(gè)名為title的函數(shù)。然后=title（你想要的title的網(wǎng)址），OK。

然后，修改標(biāo)紅處，你可以批量獲得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記下來(lái)，多用幾次，記住步驟，一切都變的so easy了。

嗯？你說(shuō)啥？前面說(shuō)到了一個(gè)火車(chē)頭？哈哈，近我也一直在嘗試著使用，待全部熟悉了，再給大家繼續(xù)分享。

推薦閱讀

搜索引擎營(yíng)銷動(dòng)態(tài)—-整合與效果是不變的追求 | 文軍營(yíng)銷一、深圳搜索引擎整合營(yíng)銷的高峰會(huì)議。峰會(huì)將邀請(qǐng)艾瑞咨詢集團(tuán)華南區(qū)代表吳畏先生詳細(xì)解讀Baidu、Google、Bing、SOSO、 Sogou 甚至是SEO等眾多搜索引擎平臺(tái)方式各自的特點(diǎn),并通過(guò)行業(yè)數(shù)據(jù)著重探討搜索引擎營(yíng)銷的重要性以及未來(lái)發(fā)展趨向。讓與會(huì)者能一次性地從第三方行業(yè)具體數(shù)據(jù)統(tǒng)計(jì)分析的角度客觀了解目前為火爆的六大搜索引擎...