excel汉字与url编码互转(共2页).docx

一、 汉字转为URL编码在excel中填加宏代码Function EncodeUrl_ANSI(sStr$) As String Dim iAscii%, sEncode$, i&, sResult$ For i = 1 To Len(sStr) sEncode = Mid$(sStr, i, 1) iAscii = Asc(sEncode) Select Case iAscii Case 0 To 255 127 单字节 Select Case sEncode Case 0 To 9, A To Z, a To z ,-,_ 添加其他非转义字符 这些字符不进行 转义 。 Case Else 其他字符都要 转义 。