seo外链提交工具(利用百度站长外链工具和excelVBA快速提交垃圾外链是一个)

　　seo外链提交工具(利用百度站长外链工具和excelVBA快速提交垃圾外链是一个)

　　使用百度站长外链工具和excelVBA快速提交垃圾外链

　　反向链接是网站赢得搜索引擎青睐的重要因素之一。只有拥有强大健康的反向链接，才能经受住各种风雨，在搜索引擎算法的不断改进中站稳脚跟。但是，有时候，我们会发现网站的外部链接一夜之间暴涨。在这个链接难求的时代，不要太酷，等待，不要太开心，睁大眼睛仔细看看。来吧，这都是垃圾链接。这些垃圾链接不会帮助网站的排名，反而会被搜索引擎“关注”。如果垃圾链接达到一定的轻量级，权重就会减少，权重为K。

　　好在强大的百度站长工具提供了拒绝外链的功能，帮助我们及时清理这些垃圾外链，但是如果我们有很多网站外链，找这些垃圾一个还是很累的由一个人。幸运的是，总是有 优采云 的 优采云 方式。经过摸索，我发现这些垃圾链接有一个共同的特点，就是网址中收录一些莫名其妙的字母，比如

　　本文使用excel提供的VBA来过滤这个特性。下面介绍具体方法。

　　第一步是从站长工具平台下载所有外部链接。百度站长平台提供数据下载功能。我们下载它，默认是csv格式。

　　第二步，用excel打开保存的文件，保存为.xls格式，比如我的外部链接.xls，就是标准的excel格式。插入一个工作表并将其拖动到第二个位置，如下图所示。

　　第三步，也是最重要的一步，打开excel菜单>工具>宏>Visual Basic编辑器

　　添加一个用户表单，拖动一个名为Txt_Rows的文本框，再拖动一个名为Cmd_Find的按钮，形成如下界面

　　然后点击编辑器菜单上的Tools>Reference，我们引用一个正则表达式对象Microsoft VBscript RegularExpressions 5.5

　　现在我们双击Find Junk External Link按钮进入编程模式，输入以下代码

　　私有子 Cmd_Find_Click()

　　使用工作表（1)

　　For i = 1 To Int(Txt_Rows.Text)

　　a = .Cells(i, 2).Value '原创链接

　　b = GetValue(a,"([A-Z0-9]{2}.){4,}", 0)

　　如果 b "" 那么

　　t = t + 1

　　工作表(2).Cells(t, 1) = a

　　万一

　　下一个

　　结束于

　　MsgBox "已执行"

　　结束子

　　函数 GetValue(ByVal 内容作为字符串，ByVal 模式作为字符串，ByVal n 作为整数)

　　出错时继续下一步

　　将 objRE 调暗为新的正则表达式

　　将 objMatches 调暗为 Match采集

　　objRE.pattern = 模式

　　objRE.Global = False

　　objRE.IgnoreCase = True

　　设置 objMatches = objRE.Execute(Content)

　　如果 objMatches.Count > 0 那么

　　m = objMatches.Item(0).SubMatches(n)

　　获取值 = 米

　　万一

　　设置 objMatches = 无

　　设置 objRE = 无

　　If Err Then MsgBox Err.Description

　　结束功能

　　好的，运行它（点击编辑器菜单上的三角形，如下图），

　　输入表中的总行数得到结果，

　　复制后进入百度站长工具平台批量提交

　　至此，大获成功，等待百度seo站长平台处理，但生效时间慢，作者体验30天左右，本文由专业垂直seo招聘网站农牧人才网原创转载请注明出处。本文介绍的方法简单易实现。关键是观察垃圾外链的结构。如果还有其他特殊结构，可以修改代码的正则部分。为了网站的健康健康发展，充分利用站长平台提供的seo工具也是非常有必要的。