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
'**************ソース**********************************

回答No.2

imogasi

totoのサイトのアドレスの意味（"http://www.toto-dream.com/dc/SK0160.doの構成など）も知らず、
MSXML2.XMLHTTPは使ったことも無い者だが、（普通はＷＥＢブラウザコントロールをつかう？）
ＷＥＢで照会すると
http://www.f3.dion.ne.jp/~element/msaccess/AcTipsVbaXMLHTTP.html
に記事があるが、これを多少変えて、
Sub PrintHttpDoc()
Dim oHttp As Object
Dim strURI As String

' 変数を初期化します。
' strURI = "http://www.asia.microsoft.com/japan/"
strURI = "http://www.toto-dream.com/dc/SK0160.do"
' オブジェクト変数に参照をセットします。
On Error Resume Next
Set oHttp = CreateObject("MSXML2.XMLHTTP")
If (Err.Number <> 0) Then
Set oHttp = CreateObject("MSXML.XMLHTTPRequest")
End If
On Error GoTo 0
If oHttp Is Nothing Then
MsgBox "XMLHTTP オブジェクトを作成できませんでした。" _
, vbCritical
Exit Sub
End If

With oHttp
' ドメイン認証が必要な場合は、下記の構文になります。
' .Open "GET", strURI, False, "ドメイン名\ユーザーID", "パスワード"
.Open "GET", strURI, False
.Send

' ドキュメントを出力します。
' ソースが Shift-JIS の場合は、下記に変更します。
' Debug.Print StrConv(.responseBody, vbUnicode)
'MsgBox .responseText
MsgBox StrConv(.responseBody, vbUnicode)
' 結果を表示します。
If (.Status >= 200 And .Status < 300) Then
MsgBox "成功しました。" & vbCrLf _
& .Status & ": " & .statusText
Else
MsgBox "失敗しました。" & vbCrLf _
& .Status & ": " & .statusText
End If
End With

' オブジェクト変数の参照を解放します
Set oHttp = Nothing
End Sub
を実行すると、エラーは出ないで、内容らしきもののメッセージの表示が出る。
参考までに。

回答No.1

noname#158634

https://www.google.com/search?q=1072896658