例えば、以下のように複数の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初心者ですので、できるだけわかりやすくご教授頂けると助かります。
よろしくお願いいたします。
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分毎)にマクロが実行されます。
コメント(0件)