如何快速打开文件夹中的所有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列出文件夹中的所有文件名