MS XML 6.0リファレンスを使用してOutlook(2010 + 2013)VBAを使用してWebページをロードしています。ハンガリー語のアクセントのある文字を含むページを取得できません。文字セットを無駄に操作しようとしました。
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
ハンガリー語のアルファベットを見ると、すべての文字のうち 2 つが正しく表示されていません。
A, Á, B, C, Cs, D, Dz, Dzs, E, É, F, G, Gy, H, I, Í, J, K, L, Ly, M, N, Ny, O, Ó, Ö、O、P、R、S、Sz、T、Ty、U、Ú、Ü、U、V、Z、Zs
それらは次のようになります: ŐとŰ
これらの行をリクエストに追加しようとしましたが、何も変わりませんでした:
ie.setRequestHeader "Accept", "text/html;charset=UTF-8"
ie.setRequestHeader "Accept-Encoding", "identity"
ie.setRequestHeader "Accept-Charset", "UTF-8"
誰でも理由を知っていますか?