在上一篇博文《使用VBA在Office中输入特殊字符(1/3)》中使用Byte数组实现了输入特殊字符,但是如果获得代表特殊字符的Byte数组的值呢?其实也不复杂。
假设工作表中活动单元格已经插入了指定特殊字符(此处仍以月亮字符为例)。
Sub GetByteStr() 'Excel VBA
Dim sSym As String, iCnt As Integer
Dim arrByte() As Byte
Dim arrNum() As String
sSym = Activecell
arrByte = sSym
iCnt = UBound(arrByte)
ReDim arrNum(iCnt)
For i = 0 To iCnt
arrNum(i) = CStr(arrByte(i))
Next
Debug.Print Join(arrNum)
End Sub
运行示例代码,在立即窗口中得到如下结果,这就是输入特殊字符时使用的Byte数组的值。
60 216 25 223
【代码解析】
第5行代码读取活动单元格的值,如果特殊字符在Word文档中,可以使用如下代码读取。
sSym = Selection
第6行代码将字符转换为Byte数组,
第7行代码获取Byte数组的下标上界。
第8行代码声明字符型动态数组。
第9~11行代码将Byte数组转存到字符数组中。
第12行代码将数组组合为一个字符串,并输出到立即窗口中。
代码很简单,有的读者可能继续提问,如果只是知道特殊字符的Unicode值,文档(Excel或者Word)中也没有这个字符,那该怎么办呢?其实也可以解决,这里涉及到UTF编码的格式,且听下回分解。
相关链接: