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

网友投稿 280 2024-01-02

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

例如，这里有一个包含多个文本文件的文件夹，您要做的就是将这些文本文件导入到单个工作表中，如下图所示。有没有什么技巧可以将文本文件从一个文件夹快速导入到一张纸中，而不是一个一个地复制文本文件？

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

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

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

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

1.启用要导入文本文件的工作簿，然后按 Alt + F11键 启用键 Microsoft Visual Basic应用程序 窗口。

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

Copy

3。按 F5

显示对话框，然后选择一个文件夹，其中包含要导入的文本文件。看截图：

4。点击 OK

。然后，文本文件已作为新工作表分别导入到活动工作簿中。

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

如果要将一个文本文件导入到特定的单元格或范围，可以应用 Kutools for Excel“ 在光标处插入文件 效用。

Kutools for Excel, 与超过 300 方便的功能，使您的工作更加轻松。

免费下载免费全功能 30 天

后免费安装 Kutools for Excel，请执行以下操作：

1.选择要导入文本文件的单元格，然后单击 Kutools 加 > 进出口 > 在光标处插入文件

。看截图：

2.然后弹出一个对话框，单击浏览显示 选择一个文件 插入单元格光标位置对话框中，然后选择 文本文件

从下拉列表中，然后选择要导入的文本文件。看截图：

3。点击可选 > Ok

，并且已在光标位置插入了指定文本文件，请参见屏幕截图：

在光标处导入/插入文本文件

最佳办公生产力工具

将小时转化为分钟 Kutools for Excel!

准备好增强您的 Excel 任务了吗？利用的力量 Kutools for Excel - 您终极的节省时间的工具。简化复杂的任务并像专业人士一样浏览数据。以闪电般的速度体验 Excel！