phpexcel超链接 Excel中批量提取超链接的解决办法 - 电脑 - ca88会员登录入口

phpexcel超链接 Excel中批量提取超链接的解决办法

发布时间:2019-03-15 04:01:11 编辑:亚洲城ca88手机版官网

       今天有同学在wind万德数据库上下载了一些数据,每个数据条目都以超链接存在,点击可以链接都相应的网站。她想提取其中的链接地址来爬取网站的内容。

       其数据格式形式:

       由于总共有2500条记录,手动提取很是费劲,因此,就想有自动实现。

一、网上有多个版本存在问题:

        Sub 提取超链接()

               For Each cell In Range("A1:A2500")

               cell.Offset(0, 1)=cell.Hyperlinks(1).Address

               Next

        End Sub

但是在执行时,总是会出现“下标越界”错误:

二、这里给一个批量实现的有效办法。

     我们尝试很多版本,最后找到一个可行有效的代码。下面是我实现的具体步骤:

1、请将含有超链接地址的文字内容复制到excel表格A列,B列保留,将导入超链接地址;


2.  在Excel中,按Alt+F11,打开Visual Basic 界面,接着在VB窗口菜单栏上,插入-->模块,会跳出VB编辑木块。将下面代码复制到编辑模块上:


Sub getchaolianjie()

On Error Resume Next

For Each cell In Range("A1:A2500")

       a = Len(cell.Formula)

       For b = 12 To a

       If Mid(cell.Formula, b, 1) = "," Then

        cell.Offset(0, 1) = Mid(cell.Formula, 13, b - 14)

        Exit For

        End If

        Next b

        Next

End Sub

由于这里A列共有2500条记录需要提取链接提取,所以在Range里是("A1:A2500")。根据自己的情况更改。

3. 在VB窗口的菜单栏上,点击 运行-->运行子过程/用户窗体,或者直接用快捷键F5。

此时你就会发现,所有的超链接地址都被提取出来,呈现在Excel的B列上。如下:


至此就实现了我们目的。

热门文章