如何快速打開資料夾中的所有Excel文件？

在本文中，我將介紹用於打開特定資料夾中所有工作簿的宏。

使用VBA打開資料夾中的所有工作簿

使用Kutools for Excel列出某個特定資料夾的所有檔名

使用VBA打開資料夾中的所有工作簿

1. 按 Alt + F11 鍵打開 Microsoft Visual Basic for Applications 視窗背景色。

2. 點擊 插入 > 模組，然後將以下代碼粘貼到腳本中。

VBA：打開資料夾中的所有Excel文件

Sub OpenFiles()
'UpdateByExtendoffice20160623
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    On Error Resume Next
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select a folder [Kutools for Excel]"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then Exit Sub
    xFile = Dir(xStrPath & "\*.xlsx")
    Do While xFile <> ""
        Workbooks.Open xStrPath & "\" & xFile
        xFile = Dir
    Loop
End Sub

3. 按 F5 鍵，會彈出一個對話框，讓你選擇要打開其中所有工作簿的資料夾。請參見截圖：

4. 點擊 確定，該特定資料夾中的所有工作簿都已打開。

使用Kutools for Excel列出某個特定資料夾的所有檔名

除了打開資料夾中的文件外，您是否嘗試過列出某個特定資料夾的所有檔名？ 使用 Kutools for Excel 的 檔名目錄 功能，您可以快速列出某一類型或所有類型的文件。

1. 點擊 Kutools Plus > 導入 > 檔名目錄。請參見截圖：

2. 在「檔名目錄」對話框中，選擇要列出文件的資料夾，指定要列出的文件類型，然後根據需要指定文件大小的單位。如果需要，可以為列出的檔名創建超鏈接。請參見截圖：

3. 點擊 確定，該特定資料夾中的所有文件都已列在當前工作簿的新工作表裡。請參見截圖：

示範：使用Kutools for Excel列出資料夾中的所有檔名