エラーを発生させずに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