excel2000のvbaハイパーリンク

質問

excel2000のvbaユーザーフォームで ラベルをクリックしたら、ハイパーリンクで別のファイルを開くのですが、リンクが切れていた場合、リンクが切れているという風に警告してもらいたいです。 リンクさせるアドレスを、sheet1のＡ１セルに格納していますが、下記のままだと、リンク切れしていたばあい、エラーとなってしまいます。Private Sub テストラベル_Click()ThisWorkbook.FollowHyperlink Address:=Worksheets(”Sheet1”).Range("A1").TextEnd Subどう修正すればいいでしょうか？

回答No.1

keithin · ベストアンサー

方法１：簡単な逃げ道
Private Sub テストラベル_Click()
　on error resume next
　ThisWorkbook.FollowHyperlink Address:=Worksheets("Sheet1").Range("A1").Text
End Sub

バリエーション：ご質問の直接の回答
Private Sub テストラベル_Click()
　on error goto errhandle
　ThisWorkbook.FollowHyperlink Address:=Worksheets("Sheet1").Range("A1").Text
　exit sub
errhandle:
　msgbox "BAD LINK"
End Sub

方法２：
何に向けてのハイパーリンクを用意しているのですか？
例えばディスク内のファイルに向けてとかなら、そのファイルが「そこにある」かdir関数などで一旦調べてから、有ればfollowhyperlinkさせるような手も考えられます。

お礼

ネットワーク上のファイルに対してのリンクでした。
複雑なコードを予想していましたが、簡単なコードで助かりました。
ありがとうございました。