如何在vba中解码%C3%B8

Question

如何在 VBA 中解码 %C3%B8？它是丹麦字母 ø - 它以 UTF-8 编码。我尝试在 vba 中对其进行解码，以便在 Excel 电子表格中使用以下函数：

Function DecodeUTF8(s)
  Dim i
  Dim c
  Dim n

  i = 1
  Do While i <= Len(s)
    c = Asc(Mid(s, i, 1))
    If c And &H80 Then
      n = 1
      Do While i + n < Len(s)
        If (Asc(Mid(s, i + n, 1)) And &HC0) <> &H80 Then
          Exit Do
        End If
        n = n + 1
      Loop
      If n = 2 And ((c And &HE0) = &HC0) Then
        c = Asc(Mid(s, i + 1, 1)) + &H40 * (c And &H1)
      Else
        c = 191
      End If
      s = Left(s, i - 1) + Chr(c) + Mid(s, i + n)
    End If
    i = i + 1
  Loop
  DecodeUTF8 = s
End Function

Answer 1

您必须使用 UrlDecode 或 HmlDecode 方法，

请参阅此处以获取更多信息
http://msdn.microsoft.com/en-us /library/system.web.httputility.urldecode.aspx

或此处
http://msdn.microsoft.com/en-us/library/7c5fyk1k.aspx