vba中如何把unicode字符串转化成utf-8的字节数组？哪位大神可以帮我解决这个问题？

  tt = BytesToBstr(.ResponseBody, "UTF-8")  



Function BytesToBstr(strBody, CodeBase)         '使用Adodb.Stream对象提取字符串
    Dim objStream
    On Error Resume Next
    Set objStream = CreateObject("Adodb.Stream")
    With objStream
        .Type = 1                               '二进制
        .Mode = 3                               '读写
        .Open
        .Write strBody                          '二进制数组写入Adodb.Stream对象内部
        .Position = 0                           '位置起始为0
        .Type = 2                               '字符串
        .Charset = CodeBase                     '数据的编码格式
        BytesToBstr = .ReadText                 '得到字符串
    End With
    objStream.Close
    Set objStream = Nothing
    If Err.Number <> 0 Then BytesToBstr = ""
    On Error GoTo 0
End Function

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/rfjfv2v7fyfxxrxe73.html