如果你关注SEO外链建设的话,你就需要跟踪那些导入链接。有时候链接出现或者消失,或者加上no-follow(就意味着搜索引擎会忽视掉)等等。你就需要保持跟踪,需要知道你的努力有没有得到回报或者白忙活一场。有些商业软件可以为你监测外链,但是你晓不晓得Excel可以帮你完美地免费帮你实现这一工作。
你可以看到Excel外链检查的Excel文件。
在B2表格中输入网站地址不需要添加“http://”,然后在A5,A6依次往下输入所有应该链接你网站URL的链接。
当你准备好开始检查链接的时候,按下CTRL-SHIFT-B。所有的应该存在的链接都会被检查一遍,检查目标链接是否被加上do-follow以及定位的链接指向的URL。
Excel是如何工作的
基本上宏代码所做的就是取得每个页面的内容检查上面的链接。
只有每个页面上链向你网站的第一个链接会被考虑检查。如果你的链接出现的话那么锚文本和链向你页面的网址就会显示在Excel中。如果外链未被发现那么也会出现一个信息。
这个主要的宏代码CheckBacklinks 会为每一个需要更新的URL创建一个CheckBacklinks的对象,然后等待所有的对象执行结束。
和之前介绍的Excel自动检查网站排名一样,我也是使用的WinHTTP和User-Agent IE7伪装抓取页面内容。
不像之前的工具,这里使用的代码是异步 I/O模式。在这个模式下一旦页面内容已经下载完成VBA代码就会得到一个事件通知。这样可以允许我们同时取得页面内容,我们假设列表中的很少网址将驻留在同一物理服务器上是非常棒的。
Private WithEvents http As WinHttp.WinHttpRequest
Sub http_OnResponseFinished()
...
End Sub
还和之前工具不一样的是,HTML解析使用的是MSHTML库。通过利用HTML文档模型,我们可以得到页面的DOM。就像页面已经在IE浏览器打开一样。
Dim doc As New HTMLDocument
doc.body.innerHTML = http.ResponseText
For Each link In doc.Links
...
Next
顺着DOM顺序,代码就会遍历文档中的所有链接来检查外链。
英文地址:http://www.searchenginejournal.com
翻译地址:光年论坛