すぐに役立つエクセルVBAマクロ集 - FAQ たくさんのWebページから次々とコピーできないか

　　すぐに役立つエクセルVBAマクロ集すぐマク

Excel VBA Macro
FAQ

500連発・組み方講座フォロー

Big Color Pallet

[広告]

Excel VBA Macro

Excel DownLoad

Excel VBA Macro　・　その他　・　FAQ

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

Question 85.2

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

4万件のデータがWEBに乗っていますが、それをEXCELに落とす方法を考えています。
1ページに20件しか入ってませんので「次のページ」ボタンを押しながら2000回、コピーと貼り付けをしないといけません。
EXCELのマクロを使って、コピーする方法がありますか？ Excel2007を使っています。よろしくお願いします。

Answer　　

Webページにどのように載っているのかが分かりませんが、Excelのマクロで可能かも知れません。
ご存知かと思いますが、インターネットエクスプローラーを起動してホームページを表示するだけでしたら下記マクロで可能で、拙著「 Excel VBA そのまま使える実用マクロ500連発　」でも紹介しています。

Sub インターネットエクスプローラーを起動してホームページを表示する()
    アドレス = "http://www.happy500z.com/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シートに貼り付けるには？