最新公告
  • 29分享网为网络创业者提供小本创业、零成本项目、新媒体运营等方面资源。
  • 手把手教你批量提取网址(提取链接的软件)

    这是一篇简洁但是超值的文章。

    如果你从事的是电商行业,那么一定会知道生意参谋。

    当从生意参谋里导出商品相关数据时,商品名称字段是含有网页链接的,点击名称会自动跳转到相应的天猫或淘宝等商品网页页面。

    那么如何将网页地址提取出来,以便应用到其它表格内呢?下面这一个自定义函数,可以实现将超链接提取到单元格。

    手把手教你批量提取网址(提取链接的软件)

    Function gurl(cl As Range) As String ‘获取单元格内的链接地址

    gurl = cl.Hyperlinks(1).Address

    End Function

    可以提取,当然也可以批量添加到单元格,例如下面这一段代码。

    手把手教你批量提取网址(提取链接的软件)

    Sub 单元格插入链接()

    i = InputBox(“输入网址所在列号”)

    For Each rg In Selection

    ActiveSheet.Hyperlinks.AddAnchor:=ActiveSheet.Range(rg.Address), Address:=Range(i & rg.Row).Text ‘, TextToDisplay:=” “设置显示文本

    Next

    End Sub

    既然可以实现批量插入到单元格,那么是否可以实现将链接插入到图片呢?of course,我编写了以下一段代码,可以轻松实现批量图片添加超链接。

    手把手教你批量提取网址(提取链接的软件)

    Sub 图片插入链接()

    Dim shp As Shape

    i = InputBox(“输入网址所在列号”)

    For Each shp In ActiveSheet.Shapes

    rg = shp.TopLeftCell.Address

    ActiveSheet.Shapes.Range(Array(shp.Name)).Select

    ActiveSheet.Hyperlinks.AddAnchor:=Selection.ShapeRange.Item(1), Address:=Range(i &Range(rg).Row).Text

    Next

    End Sub

    但是我发现,将超链接从图片内删除,不可以通过全选实现,所以我又写了一段清除所有图片超链接的代码。

    手把手教你批量提取网址(提取链接的软件)

    Sub 清除图片连接()

    Dim shp As Shape

    On Error Resume Next

    For Each shp In ActiveSheet.Shapes

    ActiveSheet.Shapes.Range(Array(shp.Name)).Select

    Selection.ShapeRange.Item(1).Hyperlink.Delete

    Next

    End Sub