excel怎么转换txt格式

把 Excel 转换成 TXT 这事儿，听起来像是按一下按钮那么简单，对吧？就像把大象装进冰箱，第一步打开门，第二步塞进去，第三步关上门。但你要是真这么想，那我只能说，朋友，你对数据世界的残酷一无所知。这根本不是一次简单的“另存为”，这是一场跨越物种的对话，一场从秩序井然的图形化世界到原始、混沌的字符大陆的迁徙。

你手里的那个 Excel 文件，它不是一张简单的表格。它是一个小宇宙。每个单元格都有自己的属性，字体、颜色、边框、公式……它甚至还藏着图表、图片，可能还有一些你都忘了加在哪儿的批注。而 TXT 文件呢？它是个苦行僧。它世界里只有字符，赤裸裸的字符，连换行和空格都是它唯一的装饰。所以，你想把一个花枝招展的Excel贵妇，硬生生扒光了塞进TXT这个麻布口袋里，过程能不痛苦吗？能不出点幺蛾zas（幺蛾子）吗？

最天真的方法：另存为大法

几乎所有人，包括当年的我，第一个想到的就是Excel自带的另存为功能。

你点开“文件” -> “另存为”，然后在“保存类型”那个长长的下拉列表里，眯着眼睛找。你会看到几个看起来很像的选项，比如：

• 文本文件(制表符分隔)(*.txt)
• CSV (逗号分隔)(*.csv)
• Unicode 文本 (*.txt)

这时候，选择困难症就犯了。选哪个？

听我的，如果你只是想得到一个规规矩矩、用 Tab键（就是那个制表符）隔开各列数据的纯文本文件，那你就选 “文本文件(制表符分隔)(*.txt)”。这是最“正统”的TXT格式。保存之后，你用记事本打开，会看到你的数据整整齐齐地站着队，每一列之间都由一个Tab键的距离隔开，清爽。

但如果你选了 “CSV (逗牙分隔)”，虽然后缀是.csv，但它的本质，骨子里，就是个纯文本文件。只不过它是用英文逗号来分隔数据的。这玩意儿在西方世界混得风生水起，但在咱们这儿，简直是灾难的开始。为啥？你想想，你的单元格里会不会有这样的内容：“某某产品，规格大，带包装”。看到了吗？那个逗号！一旦保存成CSV，程序就会傻掉，它会以为“规格大”和“带包装”是两列新数据。整个数据结构，瞬间崩塌。别问我怎么知道的，说起来都是泪。

所以，另存为这个方法，简单是简单，但你必须对你的数据了如指掌。在动手之前，先问自己几个要命的问题： 1. 我的数据里，有没有该死的逗号？有的话，千万别用CSV。 2. 我只需要当前这个工作表（Sheet）的数据吗？因为另存为一次只能处理一个活动工作表。你要是有十几个Sheet要转，那就准备好机械地重复操作吧。 3. 那些合并的单元格、那些花里胡哨的格式，我都不在乎了吗？是的，一旦转换，这些都会烟消云散，灰飞烟灭。

最粗暴的手段：复制粘贴神功

有时候，情况紧急，或者你只是想把一小块区域的数据弄出去，另存为都嫌麻烦。这时候，人类最原始的本能就上场了：复制，粘贴。

选中你在Excel里想要的那片数据，Ctrl+C。然后，打开一个空白的记事本（Notepad），Ctrl+V。

奇迹发生了吗？

有时候会。有时候，你会看到数据像你期望的那样，用Tab键分隔开，整整齐齐。但更多时候，你会看到一坨……不可名状的东西。行距诡异，对齐混乱，甚至可能混杂着一些看不见的幽灵字符。

这种方法的成败，很大程度上取决于你复制的数据的“纯净度”。如果它就是一个简单的、没有合并单元格、没有特殊格式的纯数据区域，那成功率还挺高。但凡它沾染了一点Excel的“高级特性”，比如合并单元格，那粘贴到记事本里，你看到的就是合并前的样子，数据会错位得让你怀疑人生。

这招，我称之为“绝境求生术”。只适用于小批量、临时性的数据转移，而且你得做好粘贴后手动整理格式的心理准备。它快，但不优雅，更不可靠。

真正的高手，玩的是自动化：VBA宏

好了，前面说的都是小打小闹。如果你每天都要和几十个Excel文件打交道，要把它们转换成TXT，还用手动另存为或者复制粘贴，那不是在工作，那是在修行。

是时候亮出真正的杀手锏了：VBA (Visual Basic for Applications)。

别被这个名字吓到。你不需要成为一个程序员。你只需要知道，Excel体内住着一个强大的恶魔，你可以通过念几句咒语（代码）来驱使它，让它帮你完成所有重复、枯燥的工作。

怎么做？

1. 在Excel里，按下 Alt + F11。你会瞬间进入一个看起来很“黑客”的界面，这就是VBA编辑器，Excel的秘密控制室。
2. 在左侧的工程浏览器里，找到你的那个工作簿，右键点击，选择“插入” -> “模块”。你会得到一个空白的代码窗口。
3. 把下面这段“咒语”复制进去：

```vb Sub ExportToTxt() ' 定义一些变量，就像给工具起名字 Dim FilePath As String Dim FileName As String Dim ws As Worksheet Dim DataRange As Range Dim Cell As Range Dim RowString As String Dim FileNum As Integer

' 设置你要导出的工作表
Set ws = ThisWorkbook.Sheets("Sheet1") ' 把 "Sheet1" 换成你的工作表名字

' 设置要导出的数据范围，这里是A1单元格开始的整个使用区域
Set DataRange = ws.Range("A1").CurrentRegion

' 定义保存的文件名和路径
FilePath = ThisWorkbook.Path & "\" '保存在Excel文件相同的目录下
FileName = "导出结果.txt"

' 打开一个文件准备写入，这就像打开一个空本子
FileNum = FreeFile
Open FilePath & FileName For Output As #FileNum

' 核心部分：一行一行，一格一格地读取数据并写入
For Each Row In DataRange.Rows
    RowString = "" ' 每开始新的一行，清空一次字符串
    For Each Cell In Row.Cells
        ' 把单元格内容串起来，用Tab键分隔
        ' Trim函数可以去掉单元格内容前后的空格，是个好习惯
        RowString = RowString & Trim(Cell.Value) & vbTab
    Next Cell

    ' 去掉行末尾多余的那个Tab键
    If Len(RowString) > 0 Then
        RowString = Left(RowString, Len(RowString) - 1)
    End If

    ' 把这一整行写入到TXT文件里
    Print #FileNum, RowString
Next Row

' 关闭文件，就像合上本子
Close #FileNum

' 弹个窗告诉你完事儿了，增加点仪式感
MsgBox "数据已成功导出到 " & FilePath & FileName

End Sub ```

1. 回到你的Excel界面。点击“开发工具”选项卡（如果没有，去文件->选项->自定义功能区里把它勾上），点击“宏”，找到刚刚那个叫 ExportToTxt 的宏，点击“执行”。

Duang！一瞬间，在你的Excel文件旁边，就会出现一个叫“导出结果.txt”的文件。打开它，里面的数据不多不少，不偏不倚，完美！

这段代码做了什么？它就像一个智能机器人，逐行逐单元格地读取你的数据，然后用制表符把它们串成一行字符串，再把这行字符串“打印”到TXT文件里。它忽略了所有的格式，只取数据的核心——值。这才是真正意义上的“转换”。

有了这个，你就可以一劳永逸。下次再有同样的需求，直接运行这个宏就行了。这才是专业人士处理重复性问题该有的姿态。

最后的拦路虎：编码问题

你以为这就完了？太年轻了。当你兴高采烈地把生成的TXT文件发给技术部门的同事，他可能会回你一句：“你这文件编码不对，我这边打开是乱码！”

乱码，数据处理领域的终极梦魇。

这是因为，计算机在保存文本时，需要一个“密码本”来告诉它哪个字符对应哪个代码。这个密码本，就叫编码。中文世界最常用的有 ANSI (在中文系统下通常是GBK) 和 UTF-8。

Excel默认另存为TXT时，用的常常是ANSI编码。而现在很多系统和程序，默认只认国际通用的UTF-8编码。这就好比你用山东方言写了封信，寄给了个只会说普通话的北京人，他看不懂，就成了“乱码”。

怎么解决？

• 另存为时选择：如果你记性好，可以在“另存为”的时候，注意一下对话框下面有没有一个“工具”按钮，点开“Web选项”，里面有编码的设置，可以选UTF-8。但这个操作路径藏得很深，很反人类。
• 用更专业的工具：我强烈建议，不要用Windows自带的记事本。去下载一个 Notepad++ 或者 VS Code 这样的免费文本编辑器。它们能一眼看穿文件的编码，并且可以轻松地在不同编码之间转换。把Excel生成的TXT文件拖进去，在菜单栏找到“编码”，选择“转换为UTF-8”，保存。问题解决。

所以，一个看似简单的 Excel转TXT，背后其实是一个完整的操作链：选择方法（另存为/复制/VBA） -> 确定分隔符（Tab/逗号） -> 处理特殊字符 -> 检查并转换编码。

这每一步，都可能是一个坑。它考验的不仅仅是你的软件操作技巧，更是你对数据本质的理解。数据从来都不是安安静静躺在那里的数字和文字，它们是有生命、有脾气的。你要做的，就是学会它们的语言，理解它们的规则，然后温柔而坚定地，引导它们去到该去的地方。