如何将文件夹中的多个文本文件导入到一个工作表中？

例如，这里有一个包含多个文本文件的文件夹，您想做的是将这些文本文件导入到单个工作表中，如下截图所示。与其逐个复制文本文件，有没有什么技巧可以快速将一个文件夹中的文本文件导入到一个工作表中呢？

使用VBA将一个文件夹中的多个文本文件导入到单个工作表中

使用Kutools for Excel将文本文件导入活动单元格

使用VBA将一个文件夹中的多个文本文件导入到单个工作表中

这里有一段VBA代码可以帮助您将特定文件夹中的所有文本文件导入到一个新的工作表中。

1. 打开要导入文本文件的工作簿，并按 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 单击 插入 > 模块，将以下VBA代码复制并粘贴到模块窗口中。

VBA：从一个文件夹导入多个文本文件到一个工作表

Sub Test()
'UpdatebyExtendoffice6/7/2016
    Dim xWb As Workbook
    Dim xToBook As Workbook
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    Dim xFiles As New Collection
    Dim I As Long
    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
    If Right(xStrPath, 1) <> "\" Then xStrPath = xStrPath & "\"
    xFile = Dir(xStrPath & "*.txt")
    If xFile = "" Then
        MsgBox "No files found", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    Do While xFile <> ""
        xFiles.Add xFile, xFile
        xFile = Dir()
    Loop
    Set xToBook = ThisWorkbook
    If xFiles.Count > 0 Then
        For I = 1 To xFiles.Count
            Set xWb = Workbooks.Open(xStrPath & xFiles.Item(I))
            xWb.Worksheets(1).Copy after:=xToBook.Sheets(xToBook.Sheets.Count)
            On Error Resume Next
            ActiveSheet.Name = xWb.Name
            On Error GoTo 0
            xWb.Close False
        Next
    End If
End Sub

3. 按下 F5 键弹出对话框，选择包含要导入的文本文件的文件夹。参见截图：

4. 单击 确定。然后文本文件将被分别导入到当前工作簿的新工作表中。

使用Kutools for Excel将文本文件导入活动单元格

如果您想将一个文本文件导入到特定的单元格或区域，您可以应用 Kutools for Excel 的 在光标处插入文件 功能。

免费安装 Kutools for Excel 后，请按照以下步骤操作：

1. 选择要导入文本文件的单元格，然后单击 Kutools Plus > 导入/导出 > 在光标处插入文件。参见截图：

2. 然后会弹出一个对话框，单击 浏览 以显示 选择要在光标位置插入的文件 对话框，接着选择 文本文件 从下拉列表中，然后选择要导入的文本文件。参见截图：

3. 单击 打开 > 确定，指定的文本文件已插入到光标位置，参见截图：