使用VBA生成HTML文件时，如何避免特殊字符被替换为�？

问题根源在于Scripting.FileSystemObject的默认编码行为：CreateTextFile默认用ANSI编码保存文件，而IE通过outerHTML获取的是Unicode格式内容，直接写入会导致非ANSI范围内的特殊字符（如ë、°）被替换为�。

以下是两种可行的解决方法：

方法一：使用ADODB.Stream写入（推荐） #

ADODB.Stream支持指定编码，能完美保留特殊字符，替换后的代码如下：

Dim IE As InternetExplorer
Dim HTMLdoc As HTMLDocument
Set IE = New InternetExplorer
With IE
    .Navigate filePath
    While .Busy Or .ReadyState <> READYSTATE_COMPLETE: DoEvents: Wend
    Set HTMLdoc = .Document
End With

' 用ADODB.Stream替代FSO写入UTF-8编码文件
Dim stream As Object
Set stream = CreateObject("ADODB.Stream")
With stream
    .Charset = "UTF-8" ' 指定编码为UTF-8
    .Open
    .WriteText HTMLdoc.DocumentElement.outerHTML
    .SaveToFile filePath, 2 ' 参数2表示覆盖已有文件
    .Close
End With

Set stream = Nothing
Set IE = Nothing

方法二：若坚持使用FSO，需手动转码（不推荐） #

先将Unicode内容转换为UTF-8字节数组，再用FSO的二进制模式写入：

' 定义Unicode转UTF-8的函数
Function UnicodeToUtf8(str As String) As Byte()
    Dim stream As Object
    Set stream = CreateObject("ADODB.Stream")
    With stream
        .Charset = "UTF-8"
        .Open
        .WriteText str
        .Position = 0
        .Type = 1 ' 切换为二进制模式
        UnicodeToUtf8 = .Read
        .Close
    End With
    Set stream = Nothing
End Function

' 主流程代码
Dim IE As InternetExplorer
Dim HTMLdoc As HTMLDocument
Set IE = New InternetExplorer
With IE
    .Navigate filePath
    While .Busy Or .ReadyState <> READYSTATE_COMPLETE: DoEvents: Wend
    Set HTMLdoc = .Document
End With

Set FSO = CreateObject("Scripting.FileSystemObject")
Set FileToCreate = FSO.OpenTextFile(filePath, 2, True, -1) ' -1表示二进制模式
FileToCreate.Write UnicodeToUtf8(HTMLdoc.DocumentElement.outerHTML)
FileToCreate.Close

注意事项 #

• 优先选择ADODB.Stream方案，代码更简洁且不易出错；
• 若原HTML文件带有UTF-8 BOM，ADODB.Stream默认会保留该BOM，与原文件格式一致。

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