收到一封邮件,50个链接需要下载,可以通过以下方法导出到txt文本,再用脚本批量下载。
1、复制邮件正文到excel;
2、插入宏
Sub ExtractHL()
Dim HL As Hyperlink
For Each HL In ActiveSheet.Hyperlinks
HL.Range.Offset(0, 1).Value = HL.Address
Next
End Sub
3、执行宏,单元格的又边一格会显示超链接地址;
4、将链接复制粘贴到文本文档即可