Excel~批量提取超链接文件【支持多种格式】

对于一些经常使用 Excel 整理文档资料的工作，我们可以将需要整理的文件资料上传到网络空间，然后链接到 Excel 报表中，这样随时随地只要我们打开报表就可以查阅相关资料了。 但是 Excel 默认点击链接会直接打开文件，如果我们想要下载下来会比较麻烦，特别是对于报表中有数量较多链接文档时，如果一个个打开下载，工作量可想而知。如题，该功能可以自动获取 Excel 中的链接文件，并批量下载到本地指定文件夹下。

目前该功能我测试了一下文件，都可以正常下载，速度还可以，大家可以自行测试一下。

话不多说，直接上代码。

首先进入 VBE 编辑器，新建一个模块(M),将下面的代码丢进去。

然后插入一个 Form 控件，命名为ProgressBarForm，在 Form 控件里插入一个名为 ProgressBarLabel 的标签，用于设置进度条，参数什么的自己设置下感觉好看即可。如果想要隐藏 Form 弹窗的关闭按钮“X”，插入下面代码即可：

' 隐藏 Form 弹窗的关闭按钮“X”
Private Declare PtrSafe Function FindWindow Lib "user32" Alias _
    "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias _
    "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    
Private Sub UserForm_Initialize()
    SetWindowLong FindWindow(vbNullString, Me.Caption), -16, &H6C10000
End Sub

如果不需要隐藏，只是禁用，插入下面这段代码即可。

'禁用 Form 弹窗的关闭按钮“X”
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode <> 1 Then Cancel = True
End Sub

最后将文件保存为 xlsm 或 xlam 格式文档即可。最后为了避免大家不清楚怎么设置，放几张 VBE 编辑器截图。