如何使用VBA以CP437字符集写入文本文件？

问题核心 #

需要用VBA生成符合SIE标准的文本文件，要求采用CP437字符集——当前用ADODB.Stream指定"ASCII"无法实现目标（系统默认ASCII通常对应ANSI而非CP437），UTF-8不符合标准，同时要处理百万级别的数据量。

解决方案 #

方法1：使用ADODB.Stream指定CP437对应字符集 #

CP437在Windows系统MIME字符集注册表中的对应标识是IBM437，直接设置ADODB.Stream的Charset属性即可：

Sub WriteCP437File_Stream()
    Dim fsT As Object
    Set fsT = CreateObject("ADODB.Stream")
    
    ' 手动定义常量（若代码环境未自动识别）
    Const adTypeText = 2
    Const adSaveCreateOverWrite = 2
    
    With fsT
        .Type = adTypeText
        .Charset = "IBM437"  ' 指向CP437字符集
        .Open
        ' 写入测试行（实际可循环写入百万行数据）
        .WriteText "#FNAMN """ & "Test åäö" & """" & vbCrLf
        .SaveToFile "C:\Your\Target\Path\File.sie", adSaveCreateOverWrite
        .Close
    End With
    
    Set fsT = Nothing
End Sub

方法2：二进制模式写入（适配百万行大数量场景） #

针对百万级数据，二进制写入模式性能更优。先将字符串转换为CP437编码的字节数组，再以二进制模式写入：

Sub WriteCP437File_Binary()
    Dim fso As Object
    Dim fileStream As Object
    Dim strLine As String
    Dim byteData() As Byte
    Dim i As Long
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    ' 第三个参数False表示以二进制模式创建文件
    Set fileStream = fso.CreateTextFile("C:\Your\Target\Path\File.sie", True, False)
    
    ' 模拟百万行数据写入（替换为你的业务数据循环）
    For i = 1 To 1000000
        strLine = "#FNAMN """ & "Test åäö " & i & """" & vbCrLf
        ' StrConv第三个参数437对应CP437代码页，完成编码转换
        byteData = StrConv(strLine, vbFromUnicode, 437)
        fileStream.Write byteData
    Next i
    
    fileStream.Close
    Set fileStream = Nothing
    Set fso = Nothing
End Sub

关键说明 #

• CP437的代码页编号是437，无论是ADODB.Stream的IBM437标识，还是StrConv的437参数，都能准确指向该字符集。
• 处理百万行数据时，二进制写入模式能减少编码转换的重复开销，整体执行效率更高，建议优先采用方法2。

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