匿名質問者
匿名質問者匿名質問者とは「匿名質問」を利用して質問した質問者。
「匿名質問」では、ユーザー名を公開せずに匿名の質問ができます。
詳しくはこちら

VBAでUTF-8形式のテキストを読み込むと、文字化けしてしまいました。

どのようにすれば正常に扱えるでしょうか。

具体的には、winHTTPライブラリを使用し、
http://store.apple.com/jp/variationSelection/FD532J/A?option.dimensionCapacity=16gb&option.dimensionColor=white_silver
このURLにリクエストを送ったところ、取得したResponseが文字化けしてしまいました。
おそらく文字形式UTF-8の、JSONデータだと思うのですが、どのようにすれば扱えるでしょうか。
ネット上のサンプルでこのような変換関数を作成してみましたが、上手くいきませんでした。
なにが悪いのでしょうか。

Function CONVERT_CHARSET(strHTML As String) As String

Dim SRC As Object
Dim DST As Object

Const adTypeText = 2

Set SRC = CreateObject("ADODB.Stream")
With SRC
.Open
.Charset = "UTF-8"
.Type = adTypeText
.writetext strHTML
.Position = 0
End With

Set DST = CreateObject("ADODB.Stream")
With DST
.Open
.Charset = "Unicode"
.Type = adTypeText
End With
SRC.CopyTo DST
DST.Position = 0


Debug.Print DST.readtext
CONVERT_CHARSET = DST.readtext()

SRC.Close
DST.Close
Set SRC = Nothing
Set DST = Nothing

End Function

回答の条件
  • 1人5回まで
  • 13歳以上
  • 登録:2013/08/11 22:14:49
  • 終了:2013/08/18 22:15:04
匿名質問者

質問者から

匿名質問者2013/08/13 13:54:16

自己解決できました。ありがとうございました。

回答(0件)

回答はまだありません

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません