VBA システムエラー
始めまして
VBA初心者です
Excel2003のVBAで「toto」のサイトからデータを取得する
プログラムを作成しようと思っています。
しかし「xmlHttp.responseText」の部分で
「実行時エラー '-1072896658(c00ce56e)':」
「システムエラー:-1072896658」
のエラーが出てしまいます。
解決方法をご教授いただけないでしょうか?
'**************ソース**********************************
Dim xmlHttp As MSXML2.xmlHttp
Dim html As String
Set xmlHttp = CreateObject("MSXML2.XMLHTTP")
Call xmlHttp.Open("GET", "http://www.toto-dream.com/dc/SK0160.do", False)
Call xmlHttp.send(vbNull)
html = xmlHttp.responseText
Set xmlHttp = Nothing
'**************ソース**********************************
お礼
ありがとうございます。 一般の宝くじの一等の当る確率は1千万から3千万ぶんの1くらいらしいです。 とするとそれよりは確率が高そうですね。