如何通过VBA自动将Excel生成的TXT文件转为ANSI编码？

我经常遇到对接旧系统需要特定编码文本的需求，你这个问题可以通过VBA轻松解决，下面给你两种可靠的方案，确保生成的TXT和Notepad++标注的ANSI样本完全一致：

方案1：用Excel原生SaveAs方法（简单快捷） #

Excel的xlTextWindows文件格式对应的就是Windows系统默认的ANSI编码（也就是Notepad++里显示的ANSI，中文环境是GBK/GB2312，英文环境是CP1252），直接用这个格式保存就能满足需求。

Sub SaveAsANSIText()
    ' 1. 复制数据到新工作簿
    Dim newWB As Workbook
    Set newWB = Workbooks.Add
    ' 替换成你实际要复制的区域，这里用当前工作表的已用区域
    ThisWorkbook.ActiveSheet.UsedRange.Copy Destination:=newWB.Sheets(1).Range("A1")
    
    ' 2. 关闭保存时的警告提示（比如覆盖文件、格式兼容提示）
    Application.DisplayAlerts = False
    
    ' 3. 保存为Windows文本文件（对应ANSI编码）
    ' 替换成你的目标文件路径
    newWB.SaveAs Filename:="C:\YourFolder\output.txt", FileFormat:=xlTextWindows
    
    ' 4. 关闭新工作簿，无需保存（因为已经SaveAs过了）
    newWB.Close SaveChanges:=False
    
    ' 5. 恢复系统提示
    Application.DisplayAlerts = True
End Sub

注意：这个方案依赖系统默认编码，如果你需要和样本的编码完全匹配（比如样本是固定的CP1252或GBK），可以用下面的方案精确指定编码。

方案2：用ADODB.Stream指定精确编码（更灵活） #

如果你的样本ANSI是特定代码页（比如不管系统语言，都要生成GBK或CP1252编码的文件），可以用ADODB.Stream来写入，直接指定字符集：

Sub SaveWithExactANSIEncoding()
    ' 1. 复制数据到新工作簿
    Dim newWB As Workbook
    Set newWB = Workbooks.Add
    ThisWorkbook.ActiveSheet.UsedRange.Copy Destination:=newWB.Sheets(1).Range("A1")
    
    ' 2. 将工作表数据转换为制表符分隔的文本（和Excel默认保存TXT的格式一致）
    Dim textContent As String
    Dim rowArr As Variant
    Dim i As Integer
    
    rowArr = newWB.Sheets(1).UsedRange.Value
    For i = LBound(rowArr, 1) To UBound(rowArr, 1)
        textContent = textContent & Join(Application.Index(rowArr, i, 0), vbTab) & vbCrLf
    Next i
    
    ' 3. 使用ADODB.Stream写入指定编码的文件
    Dim stream As Object
    Set stream = CreateObject("ADODB.Stream")
    
    ' 指定编码：中文ANSI用"GBK"或"GB2312"，英文ANSI用"Windows-1252"
    stream.Charset = "GBK"
    stream.Open
    stream.WriteText textContent
    ' 2表示覆盖已存在的文件，1表示创建新文件（如果不存在）
    stream.SaveToFile "C:\YourFolder\exact_output.txt", 2
    stream.Close
    
    ' 4. 清理工作簿
    newWB.Close SaveChanges:=False
End Sub

验证方法 #

生成文件后，用Notepad++打开，查看右下角的编码标识，确认和你的样本文件一致即可。

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