在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

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

    谢谢大佬

  2. 大1白

    学习了,谢谢大佬

  3. 滴滴滴

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

  4. 何安忆

    谢谢大佬无私奉献

  5. homura

    学习了

  6. 瓶子

    看起来好复杂的样子

  7. tuantuanai

    感谢大佬分享

  8. 记录

    Xuexiyixia

  9. 张三666

    牛的,学习一下

  10. 归来

    又学习到了

  11. 颖卫丶

    谢谢大佬

  12. lover4532

    过来学习一下

  13. 龙虎斗

    学习学习

  14. 萝卜头

    谢谢分享,学习了

  15. Charles

    谢谢了

  16. 落伴

    支持老婆

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