Excel VBA如何将指定单元格区域导出为UTF-8编码的TXT文本文件

以下是整合后可直接使用的完整代码，保留原有单元格读取逻辑的同时，实现UTF-8编码输出：

Sub CreateUTF8TxtFiles()
    Dim fsT As Object
    Dim LastRow As Long
    Dim i As Long
    Dim outputPath As String
    
    ' 输出文件路径，可根据实际需求修改
    outputPath = "C:\Users\user1\Desktop\temp\output.txt"
    
    ' 获取AU列最后一个非空行的行号，和原有逻辑一致
    LastRow = Range("AU" & Rows.Count).End(xlUp).Row
    
    ' 初始化UTF-8编码的流对象
    Set fsT = CreateObject("ADODB.Stream")
    fsT.Type = 2 ' 指定流类型为文本/字符串
    fsT.Charset = "utf-8" ' 设置编码为UTF-8，支持ñ等特殊字符
    fsT.Open
    
    ' 遍历指定区域内容，逐行写入流
    For i = 2 To LastRow
        ' 写入单元格值+换行符，保持每行对应一个单元格的输出格式
        fsT.WriteText Range("AU" & i).Value & vbNewLine
    Next i
    
    ' 将流内容保存到本地文件，参数2代表覆盖已存在的同名文件
    fsT.SaveToFile outputPath, 2
    
    ' 释放对象资源
    fsT.Close
    Set fsT = Nothing
End Sub

核心调整说明 #

• 原有VBA原生Open...For Output语法默认生成ANSI编码文件，无法正确保存特殊字符，因此替换为ADODB.Stream方案显式指定UTF-8编码
• 完全兼容你原有的读取范围、输出格式逻辑，不需要修改单元格遍历规则

可选调整项 #

• 若需要生成无BOM的UTF-8文件（多用于跨平台场景），可在fsT.SaveToFile代码之前添加如下逻辑，跳过UTF-8的BOM头：

  ' 跳过前3位的UTF-8 BOM头
  fsT.Position = 3
  Dim noBOMStream As Object
  Set noBOMStream = CreateObject("ADODB.Stream")
  noBOMStream.Type = 1
  noBOMStream.Open
  fsT.CopyTo noBOMStream
  noBOMStream.SaveToFile outputPath, 2
  noBOMStream.Close
  Set noBOMStream = Nothing
  

• Windows环境下默认带BOM的UTF-8文件兼容性更好，无特殊需求不需要添加上述调整代码。

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