excle用的url编码（加密）

自己千辛万苦在网上找到的excle用的url编码，赶紧记录一下以后可以直接用。

Public Function UrlEncode(ByRef szString As String) As String
Dim szChar As String
Dim szTemp As String
Dim szCode As String
Dim szHex As String
Dim szBin As String
Dim iCount1 As Integer
Dim iCount2 As Integer
Dim iStrLen1 As Integer
Dim iStrLen2 As Integer
Dim lResult As Long
Dim lAscVal As Long
szString = Trim$(szString)iStrLen1=Len(szString)ForiCount1=1ToiStrLen1szChar=Mid$(szString, iCount1, 1)
lAscVal = AscW(szChar)
If lAscVal >= &H0 And lAscVal <= &HFF Then
If (lAscVal >= &H30 And lAscVal <= &H39) Or _
(lAscVal >= &H41 And lAscVal <= &H5A) Or _
(lAscVal >= &H61 And lAscVal <= &H7A) Then
szCode = szCode & szChar
Else
szCode = szCode & “%” & Hex(AscW(szChar))
End If
Else
szHex = Hex(AscW(szChar))
iStrLen2 = Len(szHex)
For iCount2 = 1 To iStrLen2
szChar = MidKaTeX parse error: Expected 'EOF', got '&' at position 141: … szBin = szBin &̲ "0000" …(szBin, 4) & “10” & MidKaTeX parse error: Expected 'EOF', got '&' at position 15: (szBin, 5, 6) &̲ "10" & Right(szBin, 6)
For iCount2 = 1 To 24
If MidKaTeX parse error: Expected 'EOF', got '&' at position 288: …zCode = szCode &̲ "%" & Left(szTemp, 2) & “%” & MidKaTeX parse error: Expected 'EOF', got '&' at position 16: (szTemp, 3, 2) &̲ "%" & Right(szTemp, 2)
End If
szBin = vbNullString
lResult = 0
Next iCount1
UrlEncode = szCode
End Function