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

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

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

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

附件是一个拼音的模块。


用法：Debug.Print GetPYString("王强")


显示结果：wang qiang


取消中间空格时，将


For i = 1 To Len(HZString)<BR>                                                       PYString = PYString &amp; GetPY(Mid(HZString, i, 1)) &amp; " "<BR>                       Next<BR>                       PYString = Left(PYString, Len(PYString) - 1)


更改为：


For i = 1 To Len(HZString)<BR>                                                       PYString = PYString &amp; GetPY(Mid(HZString, i, 1))<BR>                       Next


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

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

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

用十六进制工具打开附件，删去最前面两码即可
页: [1]
查看完整版本: [VBA][求助]如何获取汉字的拼音?