如何使用vba代码将utf8编码转换为ansi码？

Question

问题描述：如何将“E9B98F”转换为“鹏”，将“E8B7AF”转换为“路”，将“E69DA5”转换为“来”，将“E4B8B9”转换为“丹”？等等。
使用vba代码实现效果，能够在64位office软件下的excel下运行。

Answer 1

引自强大而免费的微信小程序：皆我百晓生。

在VBA中，可以使用Byte数组来存储UTF-8编码，然后将其转换为ANSI码。以下是一个示例代码：

Option Compare Database
Option Explicit

Sub ConvertUTF8toANSI()
    Dim utf8Code As String
    Dim byteArr() As Byte
    Dim strANSI As String
    
    '将UTF-8编码转换为二进制数组
    utf8Code = "E9B98F"
    byteArr = HexToByteArr(utf8Code)
    
    '将二进制数组转换为ANSI码
    strANSI = BytesToANSI(byteArr)
    
    '输出结果
    Debug.Print strANSI
End Sub

'将十六进制字符串转换为二进制数组
Function HexToByteArr(hexStr As String) As Byte()
    Dim byteArr() As Byte
    Dim i As Integer
    
    If Len(hexStr) Mod 2 <> 0 Then
        hexStr = "0" & hexStr
    End If
    
    ReDim byteArr(Len(hexStr) \ 2 - 1)
    
    For i = 1 To Len(hexStr) Step 2
        byteArr(i \ 2) = Val("&H" & Mid(hexStr, i, 2))
    Next i
    
    HexToByteArr = byteArr
End Function

'将二进制数组转换为ANSI码
Function BytesToANSI(byteArr() As Byte) As String
    Dim strANSI As String
    
    '注意：此处假设二进制数组为UTF-8编码
    With CreateObject("ADODB.Stream")
        .Open
        .Type = adTypeBinary
        .Write byteArr
        .Position = 0
        .Type = adTypeText
        .Charset = "utf-8"
        strANSI = .ReadText(-1)
        .Close
    End With
    
    BytesToANSI = strANSI
End Function

代码中使用了HexToByteArr函数将UTF-8编码的十六进制字符串转换为二进制数组，然后使用BytesToANSI函数将二进制数组转换为ANSI码。

你可以根据需要修改ConvertUTF8toANSI子过程中的utf8Code变量的值来进行测试。在调试窗口中，可以看到打印出来的ANSI码结果。

请注意，此代码需要引用"Microsoft ActiveX Data Objects 6.1 Library"（具体版本可能因不同的操作系统和安装版本而有所不同）。在VBA编辑器中，选择"工具"->"引用"，然后找到并勾选该库，以使代码正确运行。