在日常工作中，我们常常需要把大量的汉字转化成拼音，如果手工一个一个的去输入那效率是太低了，今天网页知识大全为大家介绍个excel代码转汉字为拼音。下面是详细代码 Function pinyin(p As String) As String i = Asc(p) Select Case i Case -20319 To -20318: pinyin = "a "
Sub DaoChu() Dim I As Integer For I = 1 To 582 Open "D:\wenzhang1\" & I & "asd.html" For Output As 1 '修改文章txt存储目录 Print #1, Range("I" & CStr(I)).Value '这里要修改字母为你的对应的列 当前为I列 Close 1
