yang686526

[vba][求助]如何获取汉字的拼音?
www.dimcax.com
[vba][求助]如何获取汉字的拼音?
有我们公司员工的名字清单(excel文件), 我想做一个整个公司的email通讯簿,比如名字:王强,作成:,不知如何实现?
附件是一个拼音的模块。
用法：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