[[20050927163251]]　『ハイパーリンクのリンク切れの取得』（BB）　ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

　

『ハイパーリンクのリンク切れの取得』（BB）

 Ａ列にハイパーリンクを設定した文字列が500行程あります。
 マクロでリンク切れしている文字列を削除したいのですが、
 リンク切れしてるか、していないかの取得方法がわかりません。
 どなたか教えて下さい。

---

 下記のような方法でリンク切れしているリンクを削除できます。
 Dirを使ってリンク先のファイルがあるかどうか確認しています。
 リンク先がファイル以外のものであれば、Dir関数部分を修正する必要があります。

 Sub hlinkDel()
   Dim h, adr As String
   For Each h In ActiveSheet.Hyperlinks
      adr = h.Address
      If Len(Dir(adr, vbNormal)) = 0 Then
         h.Delete
      End If
   Next
 End Sub

 ご要望と違っていたらすみません。
 (yc)

---

 なるほど−　Dirを使用するのですね！
 問題解決しそうです。
 ありがとうございました。
 (BB)

---

コメント返信：

---

[ 一覧(最新更新順) ]

---

YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.