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人員一般稱此為長尾關鍵詞,如“杭州兩日游路線”“從上海到西塘怎么走”等。我們的產品人員和編輯應該一方面了解用戶需求,一方面制作可以滿足用戶需求的網頁,通過將含有用戶明確...