WPS 表格批量导入 TXT 数据，3 种高效方法，告别手动复制粘贴

WPS_Office wps文章 2026-08-02 2

目录导读

为什么需要批量导入 TXT 数据？
使用 WPS 自带“数据导入”功能（最推荐）
通过“分列”技巧处理不规则 TXT
借助 VBA 宏实现一键批量导入
常见问题解答（FAQ）
总结与操作建议

为什么需要批量导入 TXT 数据？

在日常办公中,我们经常遇到这样的场景：从系统导出的日志、从设备采集的传感器数据、从网上下载的股票行情，都是以 .txt 文本文件存储的，如果数据量只有几十行，复制粘贴还能忍受；但如果有几千行、几万行，甚至每天都要更新，手动操作不仅效率低下，还极易出错。

WPS 表格批量导入 TXT 数据，3 种高效方法，告别手动复制粘贴-第1张图片-WPS-WPS下载【官方网站】

WPS 表格作为国产办公软件的标杆，其实内置了强大的数据导入功能，只是很多用户不知道，掌握批量导入 TXT 数据的方法，可以让你在几分钟内完成原本需要一上午的重复劳动，本文结合搜索引擎中已有的 WPS 教程精华，去伪存真，为你整理出 3 种最实用、最稳妥的批量导入方案。

使用 WPS 自带“数据导入”功能（最推荐）

这是 WPS 官方推荐的标准做法，适用于绝大多数 TXT 文件，尤其是结构化的数据（如每行固定字段，用逗号、制表符、空格分隔）。

操作步骤：

打开 WPS 表格，新建一个空白工作表。
点击菜单栏的 “数据”选项卡，在“获取外部数据”区域找到 “导入数据”（部分版本叫“自文本/CSV”）。
在弹出的对话框中,将文件类型筛选为 “所有文件”，然后选中你的 TXT 文件。
此时会进入 “文本导入向导” 第 1 步：选择“分隔符号”或“固定宽度”，TXT 中每行数据是用逗号、Tab 键或分号分隔的，选“分隔符号”；如果是固定列宽的纯文本（如某些老系统导出），选“固定宽度”。
第 2 步：勾选实际的分隔符（逗号”“制表符”），同时可以预览下方数据分割效果，如果出现内容被错误截断，调整分隔符勾选即可。
第 3 步：对每一列设置“列数据格式”——默认是“常规”，如果你希望某列是文本（如手机号、身份证号、账目编号），一定要选中该列并设为“文本”，否则容易丢失前导零或被科学计数法显示。
点击“完成”，选择数据放置的起始单元格，点击“确定”，TXT 中的所有数据便批量导入到表格中。

优点： 无需代码，全程可视化，支持数据预览，能自动识别多种分隔符。 缺点： 每次只能导入一个文件，如果要从多个 TXT 中导入数据，需要重复操作。

通过“分列”技巧处理不规则 TXT

如果你的 TXT 文件已经用“导入数据”功能打开，但显示成一列（比如所有内容都在 A 列），或者你直接复制了文本到表格里，那么可以用“分列”功能二次拆分。

适用场景： TXT 中用空格、自定义符号或有多种分隔符混用；或者你一次性从多个 TXT 里复制出了几千行文本，想快速拆分成多列。

操作步骤：

将 TXT 内容整体复制，粘贴到 WPS 表格的 A 列（每个数据行占一个单元格，此时可能整行混在一起）。
选中这一列数据,点击 “数据” 选项卡中的 “分列” 按钮。
同样进入“文本分列向导”，选择分隔符号或固定宽度，注意：TXT 中的字段之间既有空格又有逗号，可以在第 2 步勾选多个分隔符，并勾选“连续分隔符号视为单个处理”，避免产生多余空列。
设置每一列的数据类型,点击“完成”，数据立即被拆分成整齐的多列表格。

补充技巧： TXT 文件非常大（几十 MB），建议先用记事本或 WPS 文字打开，Ctrl+A 全选后复制，再粘贴到 WPS 表格，因为 WPS 表格对直接粘贴的文本行数限制较宽松，但对“导入数据”的文件大小没有严格限制，只是大文件导入可能需要等待。

优点： 灵活，适合不规则文本，也能处理手动粘贴的数据。 缺点： 需要先获得文本内容，且如果数据量极大，粘贴时可能卡顿。

借助 VBA 宏实现一键批量导入

如果你有几十个 TXT 文件需要合并导入到同一个工作簿的多个工作表，或者每天都要进行相同操作，那么录制或编写一个简单的 VBA 宏是最省力的方案。

以下是一个经过验证的 VBA 代码示例，可批量导入指定文件夹下所有 TXT 文件：

Sub 批量导入TXT()
    Dim 文件路径 As String, 文件名 As String
    Dim ws As Worksheet
    Dim i As Long
    文件路径 = "C:\你的文件夹路径\"   ' 记得修改
    文件名 = Dir(文件路径 & "*.txt")
    i = 1
    Do While 文件名 <> ""
        Set ws = Worksheets.Add(after:=Worksheets(Worksheets.Count))
        ws.Name = "数据_" & i
        With ws.QueryTables.Add(Connection:="TEXT;" & 文件路径 & 文件名, Destination:=ws.Range("A1"))
            .TextFileParseType = xlDelimited
            .TextFileCommaDelimiter = True   ' 逗号分隔，按需修改
            .TextFileTabDelimiter = True     ' 如果同时支持 Tab 分隔，保留 True
            .Refresh
        End With
        文件名 = Dir
        i = i + 1
    Loop
End Sub

如何使用：