如何列出文件夹中的所有文件名并在Excel中为其创建超链接？

在日常工作中，您可能需要将多个文件名从文件夹导入到工作表，并为每个文件创建超链接，以便快速，轻松地打开文件。 也许您可以手动复制和粘贴文件名并为其创建一个超链接，但是如果文件夹中有数百个文件，这将浪费大量时间。 今天，我将讨论一些快速而有趣的方法来处理这项工作。

列出文件夹中的所有文件名，并使用VBA代码创建超链接

列出文件夹中的所有文件名并使用 Kutools for Excel 创建超链接

列出文件夹中的所有文件名，并使用VBA代码创建超链接

要列出文件夹中的文件并创建超链接，请使用以下VBA代码。

1。 激活一个新的工作表以放置结果。

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

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

VBA：列出文件夹中的所有文件名并创建超链接

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

4。 然后按 F5 键以运行此代码，然后从中选择要列出文件的文件夹 浏览 窗口，请参见屏幕截图：

5。 指定文件夹后，单击 OK 按钮，并且特定文件夹中的所有文件都已通过超链接列出到活动工作表中，请参见屏幕截图：

备注：如果您的特定文件夹中有子文件夹，则不会列出子文件夹中的文件。

列出文件夹中的所有文件名并使用 Kutools for Excel 创建超链接

要列出一个文件夹及其子文件夹中的所有文件，并为每个文件创建超链接， Kutools for Excel“ 文件名列表 可能帮你一个忙。 使用此功能，文件夹和子文件夹中的所有文件将立即列出，并具有一些属性，例如文件名，文件大小，创建时间，包含文件夹等。

如果你已经安装 Kutools for Excel，请执行以下步骤：

1。 点击 Kutools 加 > 进出口与贸易 > 文件名列表，请参见屏幕截图：

2. 在 文件名列表 对话框，请执行以下操作：

（1.）点击 按钮选择要列出文件名的文件夹；

（2.）检查 在子目录中包含文件 如果要列出子文件夹中的文件名，请检查 包括隐藏的文件和文件夹 如果要列出隐藏文件；

(3.) 指定要查找的文件类型并在 档案类型 部分;

（4.）选择要显示的文件大小单位；

（5.）检查 创建超链接 在对话框的左下方。

立即下载Excel的Kutools！

3。 然后点击 Ok 按钮，文件夹和子文件夹中的所有文件都已在新工作表中列出，并根据需要提供超链接，请参见屏幕截图：

单击以了解有关“文件名列表”实用程序的更多详细信息……

立即下载和免费试用Excel的Kutools！

演示：列出文件夹中的所有文件名并使用 Kutools for Excel 创建超链接

相关文章：

如何将文件夹和子文件夹中的所有文件列出到工作表中？