1

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"

誰でも理由を知っていますか?

4

0 に答える 0