Rude：前段時間群里閑聊，一哥們說到自己手里有200多個站，火車頭批量采集內容更新，買點外鏈，待網站權重上去后，賣點鏈接，賣賣廣告，小日子過的雖然不能說美不勝收，但總歸也是湊合。

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

例子：excel批量獲取網頁title

同事L想把自己的網站的TKD修改下，思考之后，覺得需要先把頁面現(xiàn)有的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中出現(xiàn)了一個名為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了。

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

推薦閱讀