Excel VBAを使用してwebクエリをループさせる方法が知りたいです。


例えば、以下のように複数のURLがあったとします。
Sheet1のB2セル~B3、B4、B5・・・

━━【B】━━━━
【1】
【2】http://dailynews.yahoo.co.jp/fc/
【3】http://shopping.yahoo.co.jp/
【4】http://www.yahoo.co.jp/
【5】http://chiebukuro.yahoo.co.jp/
【6】http://dic.yahoo.co.jp/



━━━━━
上記すべてのwebページの内容をコマンドボタンワンプッシュでSheet2のA1セルから下へ順に反映させたいといった感じです。

当方VBA初心者ですので、できるだけわかりやすくご教授頂けると助かります。
よろしくお願いいたします。

回答の条件
  • URL必須
  • 1人5回まで
  • 13歳以上
  • 登録:2011/01/16 19:05:23
  • 終了:2011/01/23 19:10:03

回答(1件)

id:spyglass No.1

spyglass回答回数455ベストアンサー獲得回数292011/01/17 00:05:20

ポイント60pt

WEBクエリの取得については完成している物として説明をしていきます。

コマンドボタンワンプッシュと言うのはコマンドボタンのルーチンの中に上記のWEBクエリを記入すれば条件が満たされますね。

次にこれらを繰り返す、という事ですがOnTime関数を用います。

http://www.d3.dion.ne.jp/~jkondou/excelvba/K10.htm


OnTime関数は今から数秒~数時間後に再度指定したマクロを実行する、という関数です。


Application.OnTime Now + TimeValue("00:01:00"), "web_query"

上記のVBAは1分後にweb_queryを実行する、という命令になります。

この一行が含まれて居る事で永遠(1分毎)にマクロが実行されます。

コメントはまだありません

この質問への反応(ブックマークコメント)

トラックバック

  • 人力検索へのフォロー http://q.hatena.ne.jp/1294836439   VBScriptの正規表現はあまり複雑なものを一度に処理しきれないので、ちょっと長ったらしいものになってしまいました また、複数のTABLEが
「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません