VBA XMLHTTP60请求未以匈牙利语显示所有口音

VBA XMLHTTP60请求未以匈牙利语显示所有口音,vba,outlook,msxml6,Vba,Outlook,Msxml6,我正在使用Outlook(2010+2013)VBA,使用MS XML 6.0引用加载网页。我很难找到带有匈牙利口音字符的页面。我试图操纵这个字符集,但没有用 Sub TEST() Dim url As String url = "https://hu.wikipedia.org/wiki/Magyar_%C3%A1b%C3%A9c%C3%A9" Dim dictObj As Object: Set dictObj = CreateObject("Scripting.Dictionary"

我正在使用Outlook(2010+2013)VBA,使用MS XML 6.0引用加载网页。我很难找到带有匈牙利口音字符的页面。我试图操纵这个字符集,但没有用

Sub TEST()
 Dim url As String
 url = "https://hu.wikipedia.org/wiki/Magyar_%C3%A1b%C3%A9c%C3%A9"
 Dim dictObj As Object: Set dictObj = CreateObject("Scripting.Dictionary")
 Dim ie As MSXML2.XMLHTTP60
 Set ie = New MSXML2.XMLHTTP60
 ie.Open "GET", url, False
 ie.Send
 While ie.ReadyState <> 4
 DoEvents
 Wend
 Dim HTMLDoc As MSHTML.HTMLDocument
 Dim HTMLBody As MSHTML.HTMLBody
 Set HTMLDoc = New MSHTML.HTMLDocument
 Set HTMLBody = HTMLDoc.Body
 HTMLBody.innerHTML = ie.responseText
 Debug.Print HTMLBody.innerText
End Sub

有人知道为什么吗?

响应是unicode格式的,您需要转换它。请参阅:。Debug.print或多或少支持ASCII,对于unicode,您将需要一个不同的容器。响应是unicode的,您需要转换它。请参阅:。Debug.print或多或少支持ASCII,对于unicode,您需要一个不同的容器。
    ie.setRequestHeader "Accept", "text/html;charset=UTF-8"
    ie.setRequestHeader "Accept-Encoding", "identity"
    ie.setRequestHeader "Accept-Charset", "UTF-8"