对于一些经常使用 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 编辑器截图。
评论 抢沙发