エクセル マクロでリンク先を開く方法

よろしくお願いします。

仮にあるセルに別ファイルを開くハイパーリンクがはられているとします。このとき以下のようなことをしたいのですが、どうすればよいのでしょうか。

１．まずどのセルにリンクがはられているかを順に調べていくとして、セルにリンクが設定されているか否かを判定するにはどうすればよいでしょうか。
２．次にリンクが設定されているときはそのリンク先のファイルを開くにはどうすればよいでしょうか。

以上です。よろしくお願いします。

No.1 ベストアンサー 回答者： masa_019 回答日時： 2006/04/16 17:30

例えば、A1セルにハイパーリンクがあるかどうかは、

Range("A1").HyperLinks.Countで、調べられると思います。

リンク先のファイルを開くにはFollow メソッドを使えば良いと思います。

ですから、セル範囲A1:C5を調べて、ハイパーリンクが設定してあれば、リンクを開くには、以下のようにすれば良いかと思います。

Sub test()
Dim rng As Range
For Each rng In Range("A1:C5")
If rng.Hyperlinks.Count > 0 Then rng.Hyperlinks.Item(1).Follow
Next
End Sub

この回答へのお礼

やりたかったことがばっちりできました。
ありがとうございました。

お礼日時：2006/04/16 18:05