エクセルのWEBクリエで取り込めないデータ

質問

WEBデータをVBAで取り込みたいと思っていますが、
次のサイトをWEBクリエで取り込もうとしてもデータ内容が取り込ません。
WEBによって取り込めない場合もあるのでしょうか。
また取り込む方法は他にありますか。

※取り込みたいデータ
http://www.stardigio.com/songlists/lists1/401.html

回答No.12

DOUGLAS_

【追加のお願い】
　下記の テスト マクロ を実行して、表示される メッセージ を下記からお答えください。【問14】
１）「２はダメ」
２）「１もダメ」

(１) でも (２) でも無い場合、
３）「■J-POP最新ヒットチャート」で始まる長～いメッセージ
４）何やら長～い メッセージ が表示されているが、文字化けしていて読めない。

Sub テスト2()
　Dim objHttp As Object
　On Error Resume Next
　Set objHttp = CreateObject("MSXML2.XMLHTTP")
　If Err.Number <> 0 Then MsgBox "２はダメ": Set objHttp = CreateObject("MSXML.XMLHTTPRequest")
　On Error GoTo 0
　If objHttp Is Nothing Then MsgBox "１もダメ": Exit Sub
　With objHttp
　　.Open "GET", "http://www.stardigio.com/songlists/txtdata/lists1/401.txt", False
　　.Send
　　MsgBox Mid(.responseText, 136)
　End With
　Set objHttp = Nothing
End Sub

お礼

A11の関数式が消える問題は
「この コード を
Sheets("Sheet1").Copy
の後に持って行けば」
により解決しました。