[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『ハイパーリンクのリンク切れの取得』(BB)
A列にハイパーリンクを設定した文字列が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.