在Excel中使用宏(VBA)创建列出文件夹中的所有文件名并为其创建超链接

一、按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

二、点击 插页 > 模块,然后将以下代码粘贴到 模块 窗口。

Sub Example1()
'Updateby Extendoffice
    Dim xFSO As Object
    Dim xFolder As Object
    Dim xFile As Object
    Dim xFiDialog As FileDialog
    Dim xPath As String
    Dim I As Integer
    Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
    If xFiDialog.Show = -1 Then
        xPath = xFiDialog.SelectedItems(1)
    End If
    Set xFiDialog = Nothing
    If xPath = "" Then Exit Sub
    Set xFSO = CreateObject("Scripting.FileSystemObject")
    Set xFolder = xFSO.GetFolder(xPath)
    For Each xFile In xFolder.Files
        I = I + 1
        ActiveSheet.Hyperlinks.Add Cells(I, 1), xFile.Path, , , xFile.Name
    Next
End Sub

三、按住 ALT + F8,快捷唤出模块。

-> 加入科技玩家交流群组:点击加入 注意:
1.文中二维码和链接可能带有邀请性质,请各位玩家自行抉择。
2.请勿通过链接填写qq号与密码、银行卡号与密码等个人隐私信息。
3.禁止纯拉人头,拉app注册等信息,发现必小黑屋。
4.同一种信息仅发一次,多发会被删除。
5.文章中源码或APP等,无法保证其绝对安全,需自行辨别。
6.文章关联方不想展示也可以微信站长“socutesheep”删除。

给TA买糖
共{{data.count}}人
人已买糖
Office

如何在Word中输入”方框打勾☑️“?

2021-5-22 16:25:13

Office学习笔记

Excel使用宏VBA汇总罗列在同一工作簿中不同工作表同一区域的数据

2021-6-29 11:51:23

30 条回复 A文章作者 M管理员
贴心提醒
请认真对待作者付出,勿发表无意义言论,触发过滤规则的评论将无法提交,包含敏感词的评论会自动变成待审核状态哦。
  1. 七年

    谢谢大佬分享,谢谢!

  2. 84896150

    又学习到了,写的非常好

  3. slimei

    谢谢大佬分享,谢谢!

  4. 七年

    感谢分享,让我好好学习一下

  5. slimei

    辛苦了,学习一下

  6. 幻念

    真棒,感谢分享!

  7. 金水

    感谢分享

  8. slimei

    谢谢分享,学习了

  9. 84896150

    这个好 给赞

个人中心
购物车
优惠劵
今日签到
有新私信 私信列表
搜索