多谢楼上
我的函数是
Public Function GbkStr(ByVal ss As String) As String
On Error Resume Next
Dim x As String
Dim Y As Variant
Dim i As Integer
Dim j As Integer
ReDim b(0 To (Len(ss) / 2)) As Byte
j = 0
For i = 1 To Len(ss) x = Mid$(Trim(ss), i, 2) Y = CLng("&H" & x) If Y < 0 Then Y = Y + 65536 b(j) = Y i = i + 1 j = j + 1 Next i GbkStr = StrConv(b, vbUnicode)
End Function