エラーを発生させずにHTMLドキュメントを取得するためにブラウザの読み込み待ち処理を入れる方法をお伝えしました。 今回からいよいよ開いたページに対して色々な操作をしていきたいと思います。 まず手始めに、Linksという命令とFor Each～Nextという繰り返し処理を用いてページ内のリンク先URLを全て取得する方法についてお伝えします。 では、よろしくお願いします！ 前回のおさらい 前回のプログラムはこちらでした。 Sub MySub() Dim objIE As InternetExplorer Set objIE = New InternetExplorer objIE.Visible = True objIE.Navigate "https://tonari-it.com/" Do While objIE.Busy = True Or objIE.readyState < READ

ページ内に存在しているリンク先URLをまとめて取得する方法についてお伝えしました。 今回のお題はSEOでとても重要な役割を果たす「ディスクリプション」。 ディスクリプションとは何か、そしてmetaタグの役割なども踏まえつつ、まさにgetElements～といった命令を使うことで、ページ内からディスクリプションを取得していきたいと思います。 ディスクリプションとは何か まずディスクリプションとは何かという話ですが、アルファベットではdescriptionと書き、日本語としては「説明」とか「解説」とかいった訳になります。 その名の通り、そのページの説明書きを表す部分でして、例えばGoogleで検索した結果で いうと この部分に表示されるものです。 SEOでも非常に重要な役割を果たしていまして、Googleのクローラーはこのディスクリプションに記載されているキーワードを重要視して検索結果の順位を

HTMLタグと要素についての説明とHTMLドキュメントの取得についてのお話をしました。 ですが、実際に動かしてみたらエラーが出た…という明らかに中途半端なところで終わらしてしまってごめんなさい。 今回はIEの読み込み待ちの処理を入れることで、そのエラーをバッチリ解決していきますよ。 この処理はVBAでIEを扱う限りはほとんどの場合で必要となる処理ですので、ぜひ覚えて頂ければと思います。 前回のおさらい 前回のプログラムはこちらでした。 Sub MySub() Dim objIE As InternetExplorer Set objIE = New InternetExplorer objIE.Visible = True objIE.Navigate "https://tonari-it.com/" Dim htmlDoc As HTMLDocument Set htmlDoc = ob

前回のおさらい 前回作ったプログラムはこちらでした。 Sub MySub() Dim objIE As InternetExplorer Set objIE = New InternetExplorer objIE.Visible = True objIE.Navigate "https://tonari-it.com/" End Sub IEオブジェクト変数を用意して、新規IEオブジェクトをセットして、IEを表示して、指定URLのページを開くという内容でした。 今回はせっかく開いたページからHTMLドキュメントを取得しますが、まずこのHTMLとは何かについて簡単に説明をしたいと思います。 HTMLとは何かについて簡単に説明します WEBスクレイピングをするのであれば、そのWEBページがどのような作りになっているかというのを調べる必要があるのですが、その際にWEBページを作るための言語であ