一、需求描述
有一个excel文档,里面记录了几千个需要下载的文档,格式如下图,下载链接在“文档名称”列用超链接形式注明。需要将里面的文件下载到桌面文件夹a中,并以【国内编号-文档名称(国外编号)-版本号.pdf】的形式重新命名。
二、处理思路
因为需要处理的文件很多,且还是周期性的,手动处理不现实,需要自动处理。命令行(脚本)形式最好。
三、处理步骤
1、提取超链接,并以抽查方式验证超链接正确性
2、编写脚本,并进行调试
四、实施内容
1、提取超链接
1.1、Excel“开发工具”
1.2、VB方法
使用开发工具下的VB编写一小段代码
代码如下:
Function GetAdrs(Rng)
Application.Volatile True
With Rng.Hyperlinks(1)
GetAdrs = IIf(.Address = "", .SubAddress, .Address)
End With
End Function
1.3、调用方法
页面调用刚编写的方法测试一下
1.4、注意例外
复制