ドメインのアドレスを、マクロで取得する

質問

A列にずっと下へ、ドメイン名（〇〇.com）が記入をされています。

そのドメイン名（〇〇.com）の、
全てのアドレス（https://～、http://～）を取得したいです。

この場合、どのようなマクロの記述になるでしょうか？

ドメインの量が多くて、手動ではできないです。
そのため、マクロで自動で取得していきたいです。

Excel２０１６です。
よろしくお願いいたします。

回答No.1

HohoPapa · ベストアンサー

https://～
http://～
このどちらでもアクセスできるようになっているサイトなのか、、
一方しかアクセスできないようになっているのか、
他方にリダイレクトしているのかを調べたいということでしょうか？

ならば、
手前みそではありますが
https://okwave.jp/qa/q9526326/a26594491.html
が参考になるものと思います。

お礼

回答ありがとうございます。

ドメイン名、〇〇.comの部分だけがあって、
そのドメイン名は、SSL化しているかどうかを調べたいです。

〇〇.comの部分だけしかないので、
https://を付けて訪れたら、SSL化されているかどうか分かります。

ですが、調べたいドメイン数が多くて、
一つずつ訪れるのは、難しいです。

そのため、マクロで自動でやりたいです。

よろしくお願いいたします。

補足

貼っていただいたリンク先の画像を見たら、
https://でSSL化されていれば、「有効」となっていました。

このように、SSL化されているのとSSL化されていないのを、
分けるのが理想です。

早速、リンク先のマクロを設定してやってみました。
ですが、「コンパイルエラー・ユーザー定義型は定義されていません。」と出ます。

そして、
Function isURL_Live(MyUrl As String) As String
の部分に、黄色マーカーが付きます。

この場合、どういう設定をすれば、
マクロを動かせるようになるでしょうか？

回答No.3

HohoPapa

>「コンパイルエラー・ユーザー定義型は定義されていません。」と出ます。

　'以下を参照設定
　'・Microsoft HTML Object Library
　'・Microsoft Internet Controls
　'参考：https://www.vba-ie.net/library/
が漏れているのではないかと思います。

お礼

ありがとうございます！
マクロが起動するようになりました！

回答No.2

kimamaoyaji

ドメイン名とアドレス（https://～、http://～）は、組み付けされている訳ではありません、ドメインを取得してもサバーを立ち上げていなければ、アドレスはありませんし、サバーを変えればアドレスも変わります（特にレンタルサーバーの場合は諸事情で変わることはよくあります）。
そもそもOfficeのマクロではWeb関係はあまり大したことは出来ません。
マクロはあくまでもEXCELの機能の自動実行でしかありません、VBA『 Visual Basic for Applications 』を使うしかないのでは？？
＞ドメインの量が多くて、手動ではできないです。
正確な数字は解りませんが、ドメイン名はおそらく数十億の単位はあるでしょう、EXCELの限界を超える量（Excel2016の最終セル 最大行数 : 1048576行 ）なので、たとえ自動化が出来ても、オバーフローでフリーズもしくは重くて動かないとかになるのでは？
JPドメインだけで100万、COMは2012年時点で1億を超えました。
参考
http://blogs.itmedia.co.jp/mohno/2012/02/com-1-cbb4.html
https://www.nic.ad.jp/ja/dom/types.html