[VBA][求助]如何获取汉字的拼音?

asahix · 发表于 2004-6-18 14:35:00

有我们公司员工的名字清单(EXCEL文件), 我想做一个整个公司的EMAIL通讯簿,比如名字:王强,作成:wangqiang@ertu.com,不知如何实现?

efan2000 · 发表于 2004-6-19 13:49:00

附件是一个拼音的模块。用法：Debug.Print GetPYString("王强") 显示结果：wang qiang 取消中间空格时，将 For i = 1 To Len(HZString)
PYString = PYString & GetPY(Mid(HZString, i, 1)) & " "
Next
PYString = Left(PYString, Len(PYString) - 1) 更改为： For i = 1 To Len(HZString)
PYString = PYString & GetPY(Mid(HZString, i, 1))
Next

flowerson · 发表于 2021-10-2 17:03:53

为什么论坛的好多呀说包下载下来都是说是损坏的？

bluelover · 发表于 2021-10-2 23:55:56

用十六进制工具打开附件，删去最前面两码即可

账号		自动登录	找回密码
密码			注册

[VBA][求助]如何获取汉字的拼音?

本帖子中包含更多资源