请问各位大侠，怎么样才能把日文的字符序列转换成16进制的数据序列？

Question

谢谢大家 了。

Answer 1

试试：Private Sub Command1_Click()
    Dim a() As Byte
    Dim i
    
    a = StrConv("そうしずか", vbFromUnicode)
    For i = LBound(a) To UBound(a)
        Debug.Print a(i)
    Next i
End Sub

Answer 2

试试：Private Sub Command1_Click()
    Dim a() As Byte
    Dim i
    
    a = StrConv("そうしずか", vbFromUnicode)
    For i = LBound(a) To UBound(a)
        Debug.Print a(i)
    Next i
End Sub

Answer 3

转换过去再转换回来：Private Sub Command1_Click()
    Dim a() As Byte
    Dim i
    
    a = StrConv("そうしずか", vbFromUnicode)
    For i = LBound(a) To UBound(a)
        Debug.Print a(i)
    Next i
    
    Dim s As String
    
    s = StrConv(a, vbUnicode)
    Debug.Print s
End Sub