VB6でテレビ番組表HTMLの保存

質問

VB6の以下のプログラムで下記URLのテレビ番組表を保存しようとしたのですが、うまくできませんでした。ソースを開いてみるとEUC-JPとなっていまして、これが原因かと思うのですが、保存するにはどうしたら良いでしょうか？　よろしくお願いします。

■URL
http://tv.nikkansports.com/tv.php?site=007&mode=06&category=g&area=025&template=time&sdate=20081226&lhour=24&shour=5&arg=05

■プログラム
Private Sub Command1_Click()
Dim strURL As String ' 取得URL
Dim strFileName As String ' ファイル名

' URLとファイル名を代入する
strURL = Text1.Text
strFileName = Text2.Text

' 指定されたURLのドキュメントをファイルに出力する
Open strFileName For Output As #1
Print #1, Inet1.OpenURL(strURL)
Close #1
MsgBox strURL & "を" & strFileName & "に出力しました"
End Sub

回答No.2

korin_

こんにちは。

テキストをEUC-JP形式で保存したいという事であれば、ADODB.Streamを使用すれば可能だと思います。
ご参考にどうぞ。
-------------------------------------------------
Dim Stream As Object
Set Stream = CreateObject("ADODB.Stream")
With Stream
.Open
.Type = 2
.Charset = "EUC-JP"
.WriteText Inet1.OpenURL(strURL)
.SaveToFile strFileName, 2 '上書き
.Close
End With
Set Stream = Nothing

補足

ご回答ありがとうございます。返信が遅くなってすみません。

これはどこに記述すれば良いのでしょうか？
質問文のソースに加えて記述するのでしょうか？

すみませんが、あまり難しいことはわかりません。
もう少し詳しくお願いします。

回答No.1

yyr446

やり方は若干違いますが、
Sub Main()
Dim objXMLHttp As MSXML2.XMLHTTP
objXMLHttp = CreateObject("Msxml2.XMLHTTP.3.0")
Dim strURL As String
Dim result As String
strURL = "http://tv.nikkansports.com/tv.php?site=007&mode=06&category=g&area=025&template=time&sdate=20081226&lhour=24&shour=5&arg=05"
objXMLHttp.open("GET", strURL, False)
objXMLHttp.send("")
result = objXMLHttp.responseText
MsgBox(result)
objXMLHttp = Nothing
End Sub
で、変数resultにドキュメントテキスト（そのページのソース）
が取れます。
※VBで、Microsoft XML v6.0を参照設定追加して下さい。
的外れな回答だったかも....

補足

ご回答ありがとうございます。返信が遅くなってすみません。

参照設定なのですが、
Microsoft XML v6.0はなかったので、v3.0を使って試してみました。
しかし、objXMLHttp.open("GET", strURL, False)
の行がコンパイルエラーになってしまいました。
どうしたら良いでしょうか？