WebサイトからデータをExcelに取得する方法③

みなさん、こんちには！

前回の文字化けを解決して行きましょう。
今回は、ADODB.Stream を使った文字コードの変換をしてみます。

「ADODB.Streamオブジェクト」を CreateObject関数で生成する。

Dim Strm As Object
Set Strm = CreateObject(“ADODB.Stream”)

準備が整いましたので、変換してみましょう。

With Strm
    .Open
    .Position = 0
    .Type = 1 'adTypeBinary
    .Write web_con.responseBody
    
    .Position = 0
    .Type = 2 'adTypeText
    .Charset = "EUC-JP"
    HTML_str = .ReadText
    .Close
End With

With Strm

.Open

.Position = 0

.Type = 1 'adTypeBinary

.Write web_con.responseBody

.Position = 0

.Type = 2 'adTypeText

.Charset = "EUC-JP"

HTML_str = .ReadText

.Close

End With

前回の web_con.responseText から web_con.responseBody に変わっているのに、気付かれたと思います。返り値が違うのです。

responseText は、返り値はテキスト
responseBody は、返り値はバイナリ

ADODB.Stream を順を追ってコメントしていきます。
.Open　 ADODB.Stream を開きます。
.Position = 0　カーソルを一番最初に移動する。
.Type = 1　バイナリモードに設定する。
.Write web_con.responseBody　バイナリデータを書き込み
.Position = 0　カーソルを一番最初に移動する。
.Type = 2　テキストモードに設定する。
.Charset = “EUC-JP”　文字コードを EUC-JP に設定する。
HTML_str = .ReadText　 EUC-JP で訳したテキストを読み出す。
.Close　 ADODB.Stream を閉じる。

今回出来上がったコードを表示します。

Dim HTML_str As String
Dim web_con As Object
Dim Strm As Object
Set web_con = CreateObject("MSXML2.XMLHTTP")
Set Strm = CreateObject("ADODB.Stream")

web_con.Open "GET", "https://www.rakuten.co.jp/",False
web_con.Send

Do While web_con.readyState < 4
	DoEvents
	Sleep 1
Loop

With Strm
    .Open
    .Position = 0
    .Type = 1 'adTypeBinary
    .Write web_con.responseBody
    
    .Position = 0
    .Type = 2 'adTypeText
    .Charset = "EUC-JP"
    HTML_str = .ReadText
    .Close
End With

Debug.Print HTML_str

Dim HTML_str As String

Dim web_con As Object

Dim Strm As Object

Set web_con = CreateObject("MSXML2.XMLHTTP")

Set Strm = CreateObject("ADODB.Stream")

web_con.Open "GET", "https://www.rakuten.co.jp/",False

web_con.Send

Do While web_con.readyState < 4

DoEvents

Sleep 1

Loop

With Strm

.Open

.Position = 0

.Type = 1 'adTypeBinary

.Write web_con.responseBody

.Position = 0

.Type = 2 'adTypeText

.Charset = "EUC-JP"

HTML_str = .ReadText

.Close

End With

Debug.Print HTML_str

次回は、今回のコードを使って https://www.rakuten.co.jp/ から必要なデータを取得して見たいと思います。