AccessVBAで、ホームページの内容を取得すると文字化けする

質問

とあるサイトで下記のようなVBAソースを拾って、
実行してみたところ、日本語部分が文字化けしてしまいました。
--- ここから
Dim Http
Dim Buf As String
'GET
Set Http = CreateObject("MSXML2.XMLHTTP")
Http.Open "GET", "http://www.yahoo.co.jp", False
Http.send
Buf = StrConv(Http.ResponseBody, vbUnicode)
--- ここまで
これでBufにサイトのHTMLが格納されますが、
日本語部分が文字化けしてしまいます。
どうにかして回避できないものでしょうか。

回答No.1

himajin100000 · ベストアンサー

Buf = Http.ResponseText
で文字化けしないと思う。

#ただ理由は理解していない(^^;;
#Msgbox(Buf)すれば文字化けしていないことが確認できるかと

#識者待ち