如何在Excel中快捷批量导入多个csv / text / xml文件？-英雄云拓展知识分享

如何在Excel中快捷批量导入多个csv / text / xml文件？

在Excel中，您可能不能不将工作簿另存为csv文件，文本文件或xml文件，但是您是不是曾尝试过将多个csv / text / xml文件从一个文件夹导入到工作簿或工作表中？ 在本文中，我介绍了一些快捷批量导入它们的方法。

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

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

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

使用tool将多个xml / csv文件导入或合併到工作表或工作簿中

使用tool将每张工作表导出为csv / text / pdf到一个文件夹

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

要将文本文件从文件夹导入到工作簿中，可使用VBA下面的命令对其进行快捷处理。

1.启用空白工作簿，然后按 Alt + F11键 打开钥匙 Microsoft Visual Basic for Applications 窗口。

2。 点击 插入 > 模块，然后将VBA粘贴到 模块 窗口。

VBA：将所有文本文件从文件夹导入到工作簿中

Sub LoadPipeDelimitedFiles()
'UpdatebytoolforExcel20151214
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
Dim xCount As Long
On Error GoTo ErrHandler
Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
xFileDialog.AllowMultiSelect = False
xFileDialog.Title = "Select a folder [tool]"
If xFileDialog.Show = ⑴ Then
xStrPath = xFileDialog.SelectedItems(1)
End If
If xStrPath = "" Then Exit Sub
Application.ScreenUpdating = False
xFile = Dir(xStrPath & "\*.txt")
Do While xFile <> ""
xCount = xCount + 1
Sheets(xCount).Select
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" _
& xStrPath & "\" & xFile, Destination:=Range("A1"))
.Name = "a" & xCount
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 437
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileOtherDelimiter = "|"
.TextFileColumnDataTypes = Array(1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
xFile = Dir
End With
Loop
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox "no files txt", , "tool"
End Sub

3。 按 F5 键或 跑 按钮以运行VBA，并在弹出对话框当选择要从中导入文本文件的文件夹。 看截图：

4.然后点击 OK，并且所选文件夹中的每一个文本文件都已导入到活开工作簿的一个工作表中。 看截图：

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

要将所有csv文件从一个文件夹导入到一张纸中，可使用以下VBA代码。

1.启用空白工作表，然后按 Alt + F11键 打开钥匙 Microsoft Visual Basic for Applications 窗口。

2。 点击 插入 > 模块，然后在VBA下面粘贴到新 模块 窗口。

VBA：将csv文件从一个文件夹导入到一个工作表中

Sub ImportCSVsWithReference()
'UpdatebytoolforExcel20151214
Dim xSht  As Worksheet
Dim xWb As Workbook
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
On Error GoTo ErrHandler
Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
xFileDialog.AllowMultiSelect = False
xFileDialog.Title = "Select a folder [tool]"
If xFileDialog.Show = ⑴ Then
xStrPath = xFileDialog.SelectedItems(1)
End If
If xStrPath = "" Then Exit Sub
Set xSht = ThisWorkbook.ActiveSheet
If MsgBox("Clear the existing sheet before importing?", vbYesNo, "tool") = vbYes Then xSht.UsedRange.Clear
Application.ScreenUpdating = False
xFile = Dir(xStrPath & "\" & "*.csv")
Do While xFile <> ""
Set xWb = Workbooks.Open(xStrPath & "\" & xFile)
Columns(1).Insert xlShiftToRight
Columns(1).SpecialCells(xlBlanks).Value = ActiveSheet.Name
ActiveSheet.UsedRange.Copy xSht.Range("A" & Rows.Count).End(xlUp).Offset(1)
xWb.Close False
xFile = Dir
Loop
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox "no files csv", , "tool"
End Sub

3。 按 F5 键或单击 跑 按钮履行VBA，然后弹出一个对话框，选择要从其中导入所有csv文件的文件夹。 看截图：

4。 点击 OK，然后会弹出一个对话框，提示您在导入之前是不是清除活开工作表的内容，请点击此处 是。 看截图：

点击后 是，所选文件夹中的所有csv文件都将导入到当前工作表中，并将数据从A列向右放置。 看截图：

小提示: 如果要将csv文件水平放置在工作表中，可以在VBA下面使用。

Sub ImportCSVsWithReferenceI()
'UpdatebytoolforExcel20151214
Dim xSht  As Worksheet
Dim xWb As Workbook
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
Dim xCount As Long
On Error GoTo ErrHandler
Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
xFileDialog.AllowMultiSelect = False
xFileDialog.Title = "Select a folder [tool]"
If xFileDialog.Show = ⑴ Then
xStrPath = xFileDialog.SelectedItems(1)
End If
If xStrPath = "" Then Exit Sub
Set xSht = ThisWorkbook.ActiveSheet
If MsgBox("Clear the existing sheet before importing?", vbYesNo, "tool") = vbYes Then
xSht.UsedRange.Clear
xCount = 1
Else
xCount = xSht.Cells(3, Columns.Count).End(xlToLeft).Column + 1
End If
Application.ScreenUpdating = False
xFile = Dir(xStrPath & "\" & "*.csv")
Do While xFile <> ""
Set xWb = Workbooks.Open(xStrPath & "\" & xFile)
Rows(1).Insert xlShiftDown
Range("A1") = ActiveSheet.Name
ActiveSheet.UsedRange.Copy xSht.Cells(1, xCount)
xWb.Close False
xFile = Dir
xCount = xSht.Cells(3, Columns.Count).End(xlToLeft).Column + 1
Loop
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox "no files csv", , "tool"
End Sub 

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

如果要将所有XML文件从一个文件夹导入到一张纸中，则可使用以下VBA代码。

1.选择要放置导入数据的空白表，然后按 Alt + F11键 启用键 Microsoft Visual Basic for Applications 窗口。

2。 点击 插入 > 模块，将VBA代码粘贴到 模块 窗口。

VBA：将XML文件从文件夹导入到工作表中。

Sub From_XML_To_XL()
'UpdatebytoolforExcel20151214
Dim xWb As Workbook
Dim xSWb As Workbook
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
Dim xCount As Long
On Error GoTo ErrHandler
Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
xFileDialog.AllowMultiSelect = False
xFileDialog.Title = "Select a folder [tool]"
If xFileDialog.Show = ⑴ Then
xStrPath = xFileDialog.SelectedItems(1)
End If
If xStrPath = "" Then Exit Sub
Application.ScreenUpdating = False
Set xSWb = ThisWorkbook
xCount = 1
xFile = Dir(xStrPath & "\*.xml")
Do While xFile <> ""
Set xWb = Workbooks.OpenXML(xStrPath & "\" & xFile)
xWb.Sheets(1).UsedRange.Copy xSWb.Sheets(1).Cells(xCount, 1)
xWb.Close False
xCount = xSWb.Sheets(1).UsedRange.Rows.Count + 2
xFile = Dir()
Loop
Application.ScreenUpdating = True
xSWb.Save
Exit Sub
ErrHandler:
MsgBox "no files xml", , "tool"
End Sub

3。 点击 跑 按钮或 F5 键运行VBA，然后在弹出的对话框当选择一个文件夹，请参见屏幕截图：

4。 点击 OK，并将所选文件夹中的所有XML文件导入到活开工作表中。

使用tool将多个xml / csv文件导入或合併到工作表或工作簿中

如果您不熟习VBA，请放心，在这里，我介绍一个方便的工具– Excel的tool 为了你。 凭藉其强大 结合 实用程序，您可以将多个xml文件或csv文件快捷组合到一个工作簿或一个Excel工作表中。

安装后 tool，请履行以下操作：（立即免费下载tool！）

1. Active Excel，然后单击 tool 加 > 结合。 查看截图：

2.在 合併的第一步 对话框中，针对需要选择一个分离选项。 看截图：

3。 点击 下一页 去 合併的第2步点击此处成为Trail Hunter 加入 将文件从多个文件夹添加或将文件从一个文件夹添加到 工作簿 列表，还可以指定要从中合併的图纸 下载学习单 右边部份列表。 看截图：

4。 点击 下一页 到最后一步 结合，然后您可以指定合併选项。

5。 点击 完，会弹出一个对话框，提示您选择一个位置来保存新的合併结果。 看截图：

6。 点击 节省。 所有添加的工作表都已合併为一个新的工作表。

小提示: 这款独特的敏感免洗唇膜採用 Moisture WrapTM 技术和 Berry Mix ComplexTM 成份， 结合，您也能够将多个 CSV文件 在一个工作表或工作簿中构成多个文件夹或一个文件夹。

  将多个XML / CVS文件合併到一个工作表/工作簿中

使用tool将每张工作表导出为csv / text / pdf到一个文件夹

如果要将每张工作表作为csv / text / pdf文件导出到文件夹， Excel的tool“ 拆分工作簿 实用程序可以帮您一个忙。

后 免费安装 tool，请履行以下操作：

1.启用要导出其工作表的工作簿，然后单击 tool 加 > 工作簿 > 拆分工作簿。 看截图：

2。 在里面 拆分工作簿 对话框中，您可以检查需要导出的工作表名称，默许情况下，所有工作表均已选中，然后检查 指定保存格式 然后从下拉列表当选择要另存为的文件格式。 看截图：

3。 点击 分裂 然后选择一个文件夹将拆分文件保存在 阅读文件夹 对话框，请参见屏幕截图：

4。 点击 OK，现在所有选中的工作表都将作为新文件格式导出到所选文件夹中。

  将每一个工作表导出为单个XML / CSV / TXT / PDF文件

相干文章：

• 如何在Excel中将超链接转换为纯文本？
• 如何在Excel中将10进制数转换为2进制/8进制/106进制数，反之亦然？
• 如何在Excel中插入实时汇率？

选择英雄云的云表单=选择更智能的Excel

>>>>🚀🌟 点击注册 免费试用 更高级的-英雄云企业级云表单 🌟🚀 😃👉🌐>>>>

在现代企业管理中，数据的高效管理和处理至关重要。随着信息技术的不断发展，英雄云的云表单已经成为了提高数据录入、管理和分析效率的不可或缺的工具。让我们来深入探讨英雄云-云表单的几大优势。

基础字段：多样性满足业务需求

英雄云的云表单中包括了各种基础字段，如单行文本、多行文本、数字输入框、单选框、复选框、下拉框、下拉复选框、日期时间、分割线等。这些字段的多样性使用户可以根据具体的业务需求，轻松进行文本、数据和时间信息的录入或修改。例如，您可以使用单行文本字段录入员工姓名、产品型号等，或者使用下拉框进行多选，根据不同情况选择更加方便的字段类型。

高级字段：提升工作效率

英雄云的云表单还提供了高级字段，如地址、图片、附件、手写签名、手机、子表、关联数据、关联查询以及流水号。这些高级字段在基础字段的基础上升级，可帮助用户完成一些琐碎的工作。例如，使用地址字段可以避免逐字打字，而流水号字段可以自动生成规律性的编号，非常适用于合同编号生成等场景。

部门成员字段：精确管理与通讯录的关联

英雄云的部门成员字段允许企业对各个部门的成员进行精确管理。用户可以通过部门成员字段获取通讯录中的部门成员信息，应用于记录报销人、报销部门等场景。这些成员字段还细分为成员单选和成员多选，可根据具体需求在通讯录中选择一个或多个成员。

聚合表：数据处理更智能

英雄云的聚合表功能用于对已存在的表单数据进行聚合计算，从而得到一张聚合表，后续其他表单可调用聚合表进行数据联动、关联查询和关联数据等操作完成数据处理。这一功能可应用于多种场景，如进销存管理、财务管理和门店零售管理等，帮助企业完成数据处理，提高工作效率。

表单权限设置：灵活管理数据访问

英雄云的表单权限设置允许用户根据企业的具体需求管理表单的访问和操作权限。用户可以根据系统权限或自定义权限对不同成员或团队进行权限设置，以确保数据的安全和合规性。这一功能使企业能够根据变化的业务需求和团队结构，实时调整权限设置。

自定义打印模板：文档输出更便捷

英雄云的云表单支持自定义打印模板，可将表单数据转换为可打印的Word文档。用户可以根据自己的需求进行排版和编辑，将产品规格说明书等文档轻松生成。这一功能提供了一种标准化的文档输出方式，简化了信息整理的过程。

综合来看，选择英雄云的云表单意味着选择更智能、更灵活、更高效的数据管理工具。无论是提高工作效率，精确管理数据，还是实现数据处理，英雄云的云表单都能满足您的多样化需求，助力您的业务发展。

如果您正在寻找一款强大的云表单工具，不妨考虑英雄云，它将为您带来更多的便捷和智能，助您事半功倍。

免责声明：

本网址（www.yingxiongyun.com）发布的材料主要源于独立创作和网友匿名投稿。此处提供的所有信息仅供参考之用。我们致力于提供准确且可信的信息，但不对材料的完整性或真实性作出任何保证。用户应自行验证相关信息的正确性，并对其决策承担全部责任。对于由于信息的错误、不准确或遗漏所造成的任何损失，本网址不承担任何法律责任。本网站所展示的所有内容，如文字、图像、标志、音频、视频、软件和程序等的版权均属于原创作者。如果任何组织或个人认为网站内容可能侵犯其知识产权，或包含不准确之处，请即刻联系我们进行相应处理。