VBA XMLHTTP60请求未以匈牙利语显示所有口音
我正在使用Outlook(2010+2013)VBA,使用MS XML 6.0引用加载网页。我很难找到带有匈牙利口音字符的页面。我试图操纵这个字符集,但没有用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"
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"