たくさんのWebページから次々とコピーできないか?

Question 85.2 Previous Next
お世話になります。 ページを拝見しました。とても勉強になりました。今悩んでいることでの相談です。

4万件のデータがWEBに乗っていますが、それをEXCELに落とす方法を考えています。
1ページに20件しか入ってませんので 「次のページ」ボタンを押しながら2000回、コピーと貼り付けをしないと いけません。EXCELのマクロを使って、コピーする方法がありますか? Excel2007を使っています。 よろしくお願いします。
Answer   Copyright (C) 2007.10.31 永井善王
Webページにどのように載っているのかが分かりませんが、Excelのマクロで可能かも知れません。
ご存知かと思いますが、インターネットエクスプローラーを起動してホームページを表示するだけでしたら下記マクロで可能で、拙著「 Excel VBA そのまま使える実用マクロ500連発  」でも紹介しています。
Sub インターネットエクスプローラーを起動してホームページを表示する()
    アドレス = "YNxv9d367.html"
    With CreateObject("InternetExplorer.Application")
        .Navigate アドレス
        .Visible = True
    End With
End Sub
こうしたマクロに、ページ内の一部をコピーしたり、次ページを表示したりする機能を追加できればよいことになります。
しかし、Excelマクロで他のアプリを制御する方法は、一口で説明できるほど単純ではありませんし、私も、それほど詳しくはありません。

よって下記のとおり、いくつかの情報をご提供しますので参考にしてガンバってください。

書籍「 実践ワークショップ Excel VBAによるOffice連携プログラミング―アプリケーション開発、システム統合、カスタマイズを実現する300の技 (実践ワークショップ―Excel VBA work shop)
この本は私の友人である井川はるき氏の執筆で、Chapter7の「Excel-Internet Explorer連携プログラミング」に、
 ・ 指定したページにジャンプする
 ・ 次のページに進む
 ・ ページ内容の一部を取得する、等、くわしく解説されています。
各地の図書館にあるかも知れませんので、見てみると良いかと思います。

【参考】
IEコンポーネント 
msdnのホームページ IHTMLDocument2 Interface
RSSの例    
300銘柄ずつのダウンロードを13秒間隔で15回繰り返すには?
Word連携の例 
Word文書中の表をコピーしてExcelシートに貼り付けるには?

 

Excel VBA Macro