如何快速打開文件夾中的所有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。 點擊 OK，並且已打開特定文件夾中的所有工作簿。

使用Kutools for Excel列出一個特定文件夾的所有文件名

除了打開文件夾中的文件之外，您是否曾經嘗試列出一個特定文件夾的所有文件名？ 用 Excel的Kutools“ 文件名列表 實用程序，您可以在一個文件夾中快速列出所有類型或一種特定類型的文件。

後 免費安裝 Kutools for Excel，請執行以下操作：

1。 點擊 Kutools 加 > 進出口 > 文件名列表。 看截圖：

2。 在裡面 文件名列表 對話框中，選擇要從中列出文件的文件夾，指定要列出的文件類型，然後根據需要指定文件大小的單位。 如果需要，可以創建指向將列出的文件名的超鏈接。 看截圖：

3。 點擊 Ok，並且特定文件夾中的所有文件都已在活動工作簿的新表中列出。 看截圖：

  列出文件夾的所有文件名