在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.发现违规行为请私信站长LAzySheep或进TG群举报。

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

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

2021-5-22 16:25:13

Office学习笔记

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

2021-6-29 11:51:23

4 条回复 A文章作者 M管理员
  1. 滴滴滴

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

  2. 大1白

    学习了,谢谢大佬

  3. 雷旭

    谢谢大佬

个人中心
今日签到
有新私信 私信列表
搜索