VBAでHTTPレスポンスの文字コードを変換する

Question

VBAからHTTPリクエスト(GET送信)を送り、レスポンスを文字列として変数に格納し、MsgBoxに出したいのですが、そのまま表示すると日本語部分が？？？となります。
おそらく文字化けしていると思い、ADODBのstreamを使って文字コードを指定しようとしているのですが、うまくいきません。

ご教授いただけると幸いです。

Dim httpReq As Object
Dim strRes As String
Set httpReq = CreateObject("MSXML2.XMLHTTP")

With httpReq
 .Open "GET", "パラメータ入りURL", False
 .send
 strRes = .responseText
End With

Dim st As New ADODB.stream
st.open
Call st.WriteText(strRes)

Dim sr As String
sr = st.ReadText
MsgBox sr

st.close
Set st = Nothing

Answer 1

まずは、そのサイトの文字コードが何か調べましょう。

ソースを表示させて、charset=UTF-8 とか charset=Shift_JIS とか charset=EUC-JP などの記述で文字コードが分かります。

UTF-8なら、

strRes = .responseText

で問題ないはずです。

Shift_JISなら、

strRes = StrConv(.responseBody, vbUnicode)

でUnicodeに変換すればいいでしょう。

EUC-JPなら下記が参考になるでしょう。

VBAでEUC-JPのHTMLソースを取得しShift-JISにしたい 【OKWAVE】

Comments

[a1578864]

後者の対応でできました！
ありがとうございます！！！