link先のURLとタイトル一覧の取得方法

質問

例えばlink集のようなページがあり、そこに掲載のlink先のURLと、そのタイトル（titleタグ）を簡単に一覧で取得するツールやブラウザのアドオンなどあれば教えてください。

回答No.1

aokii · ベストアンサー

link集のようなページをコピーしてエクセルに貼り付け、次のユーザー定義関数を使ってみてください。

エクセルのハイパーリンク先のURLを取得するユーザー定義関数

数式で設定しているものを除きます。
ファイルやドキュメント内リンクも除きます。
URLは、最初に設定しているhttpから始まっているものを返します。
A1セルに設定しているハイパーリンクのURLを表示するには、以下の式を使います。

= GetURL(A1)

設定方法は、
１．Alt + F11 で VBE(Visual Basic Editor)を開きます。
２．VBE のメニューから[挿入] -->[標準モジュール] を指定します。
３．コードウィンドウに下記コードをコピーして貼り付けます。
４．右上隅の×でウィンドウを閉じ、シートに戻ります。
５．メニューから[開発]の[マクロのセキュリティ]の、
「マクロの設定」で「警告を表示してすべてのマクロを有効にする」、
　「開発者向けのマクロ設定」で「VBAプロジェクト　オブジェクト　モデルへのアクセスを信頼する」にチェックを入れてOKをクリックする。

これで、GetURL関数が使用できる状態になります。

Function GetURL(Rng As Range) As String
Dim Adr As String
If Rng.Hyperlinks.Count > 0 Then
With Rng.Hyperlinks(1)
If .Address Like "http*" Then
Adr = .Address
End If
End With
End If
If Adr <> "" Then
GetURL = Adr
Else
GetURL = ""
End If
End Function