Excel 提取超链接信息

因项目原因需要,将excel中的链接地址提取出来。网上找了很多方法,下列方法可以使用而且相对必将简单。因此保存下来留个档案

操作步骤

打开 Excel 文档,按 “Alt+F11” 进入 VBA 环境。右击 “Microsoft Excel 对象”,从其扩展菜单中选择 “插入”-“模块” 项。

接着在打开的 “模块 1” 编辑界面中,输入如图所示的代码:

Function GetActAddress(HlinkCell)
    Application.Volatile True
    With HlinkCell.Hyperlinks(1)
        GetActAddress = IIf(.Address = "", .SubAddress, .Address)
    End With
End Function

返回 Excel 界面,在超链接右侧的单元格输入 “=GetActAddress” 即可看到自定义的函数,如图所示:

版权声明:
作者:互联网笔记
链接:http://www.nw52.com/soft/1367.html
来源:互联网笔记
文章版权归作者所有,未经允许请勿转载。

THE END
分享
二维码
< <上一篇
下一篇>>