vba UTF-8字符转ANSI

### VBA 中将 UTF-8 编码字符串转换为 ANSI 编码 为了在 VBA 中实现从 UTF-8 到 ANSI 的编码转换，可以利用 Windows API 函数 `MultiByteToWideChar` 和 `WideCharToMultiByte` 来完成这一过程。具体来说，先通过 `MultiByteToWideChar` 把 UTF-8 字符串转化为宽字符 (Unicode)，再借助 `WideCharToMultiByte` 将其转变为指定的 ANSI 编码格式。 下面是一个完整的 VBA 子程序示例，用于执行此操作： ```vb Private Declare PtrSafe Function MultiByteToWideChar Lib "kernel32" _ (ByVal CodePage As Long, ByVal dwFlags As Long, lpMultiByteStr As Any, _ ByVal cchMultiByte As Long, ByVal lpWideCharStr As Any, ByVal cchWideChar As Long) As Long Private Declare PtrSafe Function WideCharToMultiByte Lib "kernel32" _ (ByVal CodePage As Long, ByVal dwFlags As Long, lpWideCharStr As Any, _ ByVal cchWideChar As Long, ByVal lpMultiByteStr As Any, ByVal cbMultiByte As Long, _ ByVal lpDefaultChar As String, ByVal lpUsedDefaultChar As Long) As Long Function Utf8ToAnsi(Utf8String As String) As String Dim UnicodeBuffer() As Byte Dim AnsiBuffer() As Byte Dim BufferSize As Long Dim ResultLen As Long ' Convert from UTF-8 to Unicode first. BufferSize = MultiByteToWideChar(CP_UTF8, 0&, Utf8String, -1, ByVal 0&, 0&) ReDim UnicodeBuffer(BufferSize * 2 - 1) Call MultiByteToWideChar(CP_UTF8, 0&, Utf8String, -1, UnicodeBuffer(0), BufferSize) ' Then convert from Unicode to ANSI code page. BufferSize = WideCharToMultiByte(CP_ACP, 0&, UnicodeBuffer(0), BufferSize, ByVal 0&, 0, vbNullString, False) ReDim AnsiBuffer(BufferSize - 1) Call WideCharToMultiByte(CP_ACP, 0&, UnicodeBuffer(0), BufferSize, AnsiBuffer(0), BufferSize, vbNullString, False) Utf8ToAnsi = Mid$(StrConv(AnsiBuffer, vbUnicode), 1, BufferSize - 1) End Function ``` 上述代码定义了一个名为 `Utf8ToAnsi` 的函数，该函数接收一个 UTF-8 编码的字符串作为输入参数，并返回经过转换后的 ANSI 编码字符串[^2]。