VBAで有効なURLのみ抽出する方法

質問

無数あるURLリストをエクセルに張り付けし、
その中から応答のあるURL（つまりリンク切れしていないURL）のみを抽出することは可能でしょうか？

リンクの有効判定をすることはマクロで実現可能でしょうか？

実現可能であれば、どういった記載方法になるでしょうか？

回答No.1

hikonyandaisuki · ベストアンサー

こんばんは

リンク切れしている場合は、
「Internet Explorer ではこのページは表示できません」
のページが表示されるということでよろしいでしょうか？

であれば、
そのエクセルに張り付けた無数のＵＲＬを一つずつループして読み取って、

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Document.Body.innerHTML

とか使って、ソースを読み取って、
IFステートメントで、

”「Internet Explorer ではこのページは表示できません」の文字があるなら、
リンク切れ、
そうでないなら、リンクは生きてる。”

という結果を返せばいいと思います。

ＶＢＡでのIE操作は
三流君
http://www.ken3.org/cgi-bin/group/vba_ie.asp
が役に立ちます。

もしかしたらもっと楽な方法があるかもしれませんが、今は思いつきません泣

回答No.2

K Kazz（@JazzCorp）

ここも参考になります。
他にタイマのタイムアウトでも判定できるのでは？
夜間（/時差で）落ちてる、メンテで落ちてる、事故で落ちてる、etc、、、サーバもあるとは思いますが、

『HTMLを読み込むVBA』（メロディ）
http://www.excel.studio-kazu.jp/kw/20100729161514.html?t=185707
VBAで、InternetExplorer7のソース情報（HTML)を取得し、 リンク切れを発見するようなマクロって作れるのでしょうか？
I Eで開いているページ内に、リンク箇所があれば、そのリンクが有効かどうかを チェックするというような機能を作りたいのです。