【VBAスクレイピング】TDnetから適時開示を取得する

東証のTDnet上にアップロードされる適時開示は日々たくさん提出されますがETFの日々の開示事項とか、全く知らない会社の適時開示とか見なくて良い情報もたくさんあります。

そこでスクレイピングを用いて、取得したい銘柄のみをピックアップするマクロを紹介します。特別なアドオンは不要&エクセルのみで完結します。

2020/12/24日実行時の画面(時価総額上位30銘柄をピックアップ)

できること

・約1か月前までの適時開示を取得できます。

・１回の実行で取得できるのは１日分のみ。ボタンを押すと日付を指定するポップアップがでるのでそこで日付を指定。

・ポートフォリオシートで取得したい銘柄を管理。ここに登録されている銘柄のみピックアップします。

コード