インターネットのHPの表の各数字を変数に代入するプログラムでエラー：対処方法？

質問

やや回りくどい質問させていただきます。

インターネットのHPの表の各数字を変数に代入するプログラムをいじっております。が、エラーが出て解決できず、デバッグを成功させたい、どう対処したらよいでしょうという質問です。

これは引用になりますが
[No.396123 質問：インターネットから ]
”http://quote.yahoo.co.jp/m3?u
にある表から各数字を変数に代入する方法は ”

の回答で以下のような回答が寄せられておりますが、
この「回答の引用」のVB記述を実行すると、

実行時エラー '424':
オブジェクトが必要です。

とエラーが発生します。どのようにデバッグすればよいのでしょうか。
VBド素人です。こんなところで疑問が出て停滞しております。どうぞよろしくお願いします。

「回答の引用」ここから”imogasiのようにＥＸＣＥＬにいれて後はＶＢＡで処理するのでよいのなら、WEBクエリを利用するほうが簡単だと思いますが、そうでない場合を考えてみました。とりあえずＶＢＳＣＲＩＰＴで記述しています。テーブルを読み込んでＣドライブに保存しています。

dim IE
set IE = WScript.CreateObject("InternetExplorer.Application")

IE.Width = 640
IE.Height = 480
IE.Visible = true
IE.Navigate("http://quote.yahoo.co.jp/m3?u")
while IE.busy : wend
while IE.Document.readyState <> "complete" : wend

dim fs
Set fs = CreateObject("Scripting.FileSystemObject")

Set a = fs.CreateTextFile("c:\yahoo.txt", True)

for each r in IE.Document.all.tags("TABLE")(5).rows
for each c in r.Cells
a.Write(Replace(c.innerText,vbCrLf,"") & ",")
next
a.Write(vbCrLf)
next
a.Close
IE.quit
”引用ここまで

回答No.2

popesyu · ベストアンサー

>でエラー（オブジェクトが。。。）
>が発生し固まってしまい。
>実際、一歩も進めておりません。

この行でとまっているなら。
そもそもIEが壊れているorWSH自体が壊れているのどちらかでしょう。
IEが壊れているならもっと他に不具合が出てそうですからWSHの方でしょうか？
ただこれはデフォで入っているものですし、早々壊れるものでもないのですが・・・・よく分かりません。

ということでやっぱりVBA+Webクエリでやった方がいいかなと。

お礼

まことにありがとうございます。
解決はしませんでしたが、回答の方参考になりました。
いったん締め切ります。

回答No.1

popesyu

私の環境では問題なく動作しました。
コード上のミスは無いかと思います。

・そもそもWSHがインストールされていない、もしくは壊れている。
　デフォではインストールされていますがセキュリティ上使わない人はアンインストールをされるケースも多々ありますし。

・コピペのミス、もしくは先頭か最終行に不必要な記述がされている。

例えば
”引用ここまで
とか
コメント行は
'引用ここまで
こうです。

あとテーブル構成が変わったからなのか、5ではなく、4でないと数字データは取れないようです。
for each r in IE.Document.all.tags("TABLE")(5).rows
↓
for each r in IE.Document.all.tags("TABLE")(4).rows

さらにアドバイスしておくと
デバッグの仕方も分からないVBSよりは、その質問先にあるようにVBAとWebクエリを組み合わせた方がデバックしやすいかと思います。ヘルプも充実しているし。

お礼

ご回答の方ありがとうございます。

ご回答に従い、問題を解決しようと試みてはいるのですが、

set IE = WScript.CreateObject("InternetExplorer.Application")

でエラー（オブジェクトが。。。）
が発生し固まってしまい。
実際、一歩も進めておりません。

私のOSはwindowsXPです。