vba实现编码转换 ——Ansi转 unicode

字体编码有ansi 和Unicode等，不同环境默认字体编码方式不同，转换代码如下：

'Option Explicit

Function ReadTextByChatSet(FileName, Optional CharSet = "UTF-8")

    '读文件 根据文本编码格式

    Dim oStream As Object

    Dim sText As String

    Set oStream = CreateObject("ADODB.Stream")

    oStream.Open

    oStream.CharSet = CharSet 'unicode|utf-8;Ascii; gb2312; big5; gbk

    oStream.Type = 2 'adTypeText

    oStream.LoadFromFile FileName

    ReadTextByChatSet = oStream.ReadText()

    oStream.Close

    Set oStream = Nothing

End Function

'函数名称：WriteToTextFile

'作用：利用Adodb.Stream对象来写入UTF-8编码的文件

'示例：Call WriteToTextFile("File/FileName.htm",Content,"UTF-8")

Sub WriteToTextFile(FilePath, ByVal str, Optional CharSet = "Ascii", Optional bak = False)