如何在Excel中列出資料夾中的所有檔案名稱並為它們建立超連結？

在日常工作中，您可能需要從資料夾中匯入多個檔案名稱到工作表中，並為每個檔案建立超連結，以便快速輕鬆地開啟檔案。也許您可以手動複製和貼上檔案名稱，然後逐一為它們建立超連結，但如果資料夾中有數百個檔案，這將會浪費大量時間。今天，我將介紹一些快速且有趣的方法來處理這個任務。

使用VBA程式碼列出資料夾中的所有檔案名稱並建立超連結

使用Kutools for Excel列出資料夾中的所有檔案名稱並建立超連結

使用VBA程式碼列出資料夾中的所有檔案名稱並建立超連結

要列出並為來自資料夾的檔案建立超連結，以下VBA程式碼可以幫助您完成此操作。

1. 啟用一個新的工作表以放置結果。

2. 按住ALT + F11鍵打開Microsoft Visual Basic for Applications視窗。

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. 指定資料夾後，點擊確定按鈕，特定資料夾中的所有檔案都已列在活動工作表中並附有超連結，請參見截圖：

備註：如果您的特定資料夾中有子資料夾，則子資料夾中的檔案將不會被列出。

使用Kutools for Excel列出資料夾中的所有檔案名稱並建立超連結

要列出資料夾及其子資料夾中的所有檔案並為每個檔案建立超連結，Kutools for Excel的檔名目錄功能可以幫助您。使用此功能，資料夾和子資料夾中的所有檔案將一次性列出，並附有一些屬性，例如檔名、檔案大小、創建時間、所在資料夾等。

如果您已經安裝了 Kutools for Excel，請按照以下步驟進行操作：

1. 點擊Kutools Plus > 匯入與匯出 > 檔名目錄，請參見截圖：

2. 在檔名目錄對話框中，請進行以下操作：

(1.) 點擊 按鈕選擇您要列出檔名的資料夾；

(2.) 如果您想列出子資料夾內的檔名，請勾選包括子目錄內的文件；如果您想列出隱藏的文件，請勾選包括隱藏文件和文件夾；

(3.) 在文件類型部分下指定您要查找和列出的文件類型；

(4.) 選擇您要顯示的文件大小單位；

(5.) 在對話框左下角勾選創建超鏈接。

立即下載Kutools for Excel！

3. 然後點擊確定按鈕，資料夾和子資料夾中的所有檔案都已列在新工作表中，並且附有所需的超連結，請參見截圖：

點擊以了解更多關於檔名目錄工具的詳細信息…

立即下載並免費試用Kutools for Excel！

演示：使用Kutools for Excel列出資料夾中的所有檔名並建立超連結

相關文章：

如何將資料夾和子資料夾中的所有文件列出到工作表中？