excel汉字与url编码互转.docxVIP

汉字转为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 其他字符都要 转义 。 sEncode = Hex(iAscii) sEncode = % Right(sEncode, 2) End Select Case Else 双字节 sEncode = Hex(iAscii) sEncode = % Left(sEncode, 2) % Right(sEncode, 2) End Select sResult = sResult sEncode Next EncodeUrl_ANSI = sResult End Function 保存后，在表格中使用”= EncodeUrl_ANSI”调用。 URL编码转汉字 在excel宏加新建模块加代码： Function URLDecode(strURL) Dim i If InStr(strURL, %) = 0 Then URLDecode = strURL Exit Function End If For i = 1 To Len(strURL) If Mid(strURL, i, 1) = % Then If CInt(H Mid(strURL, i + 1, 2)) 127 Then URLDecode = URLDecode Chr(CInt(H Mid(strURL, i + 1, 2) Mid(strURL, i + 4, 2))) i = i + 5 Else URLDecode = URLDecode Chr(CInt(H Mid(strURL, i + 1, 2))) i = i + 2 End If Else URLDecode = URLDecode Mid(strURL, i, 1) End If Next End Function 在excel表格中调用” =URLDecode”就可以完全实现了。