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 编辑器截图。

蝈蝈下载面板

以上隐藏内容查看价格为1G币,请先
注意:本站资源多为网络收集,如涉及版权问题请及时与站长联系,我们会在第一时间内与您协商解决。如非特殊说明,本站所有资源解压密码均为:blog.quietguoguo.com。
未经允许不得转载

文章标题:蝈蝈要安静 » Excel~批量提取超链接文件【支持多种格式】

原文链接:https://blog.quietguoguo.com/3595.html

发布信息:文章由【蝈蝈要安静】于<2019-03-10>发布于【Excel】分类下

相关标签:|||

相关推荐

评论 抢沙发

  • 昵称 (必填)
  • 邮箱 (必填)
  • QQ (选填)
  • 网址(选填)