Excel换行符与VBA换行符差异？导出TXT保留换行求助

这个问题我之前踩过坑！你猜的没错，Excel单元格里用Alt+Enter插入的换行是vbLf（对应CHAR(10)），但Windows系统下的文本文件默认需要**vbCrLf（CHAR(13)+CHAR(10)）**这个组合换行符，才能让记事本这类工具正确识别换行。直接读取单元格内容写入TXT的话，只会保留vbLf，记事本就会把所有内容挤成一行。

核心解决方案：替换换行符 #

只需要在写入文件前，把单元格内容里的vbLf替换成Windows标准的vbCrLf就行，下面给你两种常用的实现代码：

方法1：用原生VBA文件操作

Sub ExportCellToTxt()
    Dim cellContent As String
    Dim savePath As String
    
    ' 读取目标单元格内容（这里以Sheet1的A1为例）
    cellContent = ThisWorkbook.Worksheets("Sheet1").Range("A1").Value
    
    ' 关键：把Excel的换行符替换为Windows标准换行符
    cellContent = Replace(cellContent, vbLf, vbCrLf)
    
    ' 设置TXT文件保存路径（比如桌面）
    savePath = Environ("USERPROFILE") & "\Desktop\ExportedContent.txt"
    
    ' 写入并保存文件
    Open savePath For Output As #1
    Print #1, cellContent
    Close #1
    
    MsgBox "文件已成功保存到：" & savePath, vbInformation
End Sub

方法2：用FileSystemObject（更灵活）

如果你需要处理更复杂的文件操作，比如追加内容、判断文件是否存在，用FileSystemObject会更方便：

Sub ExportWithFileSystemObject()
    Dim fso As Object
    Dim cellContent As String
    Dim savePath As String
    
    ' 创建FileSystemObject实例
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 读取单元格内容并替换换行符
    cellContent = ThisWorkbook.Worksheets("Sheet1").Range("A1").Value
    cellContent = Replace(cellContent, vbLf, vbCrLf)
    
    ' 设置保存路径
    savePath = Environ("USERPROFILE") & "\Desktop\ExportedContent_FSO.txt"
    
    ' 创建文件并写入内容（True表示覆盖已有文件）
    fso.CreateTextFile(savePath, True).Write cellContent
    
    ' 释放对象
    Set fso = Nothing
    
    MsgBox "导出完成！", vbInformation
End Sub

额外说明 #

• 如果是在Mac系统下，文本文件默认用vbLf作为换行符，不需要替换，直接写入即可。
• 如果单元格里同时存在vbCr（CHAR(13)）和vbLf，可以用Replace(cellContent, vbCr, "")先清理掉多余的vbCr，再替换vbLf为vbCrLf。

内容的提问来源于stack exchange，提问作者Helloguys