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” 即可看到自定义的函数，如图所示：