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

質問

よろしくお願いします。

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

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

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

回答No.1

masa_019 · ベストアンサー

例えば、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

お礼

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