如果数组名是a，转Unicode编码直接用a
转gb2312编码、GBK编码、ANSI编码，都可以用 StrConv(a, vbUnicode)
转其它编码，用以下代码
With CreateObject("ADODB.Stream")
.Open
.Type = 1
.Write a '数组名
.Position = 0
.Type = 2
.Charset = "UTF-8" '编码
MsgBox .ReadText '字符串结果
.Close
End With
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024