エクセルマクロによるハイパーリンク

エクセルマクロにてブラウザを起動させ指定サイトを開く方法を教えて下さい。
なお、セルに直接URLを入力し同セルをダブルクリックすれば可能な事は承知しています。

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

No.2 ベストアンサー 回答者： fujillin 回答日時： 2009/07/31 11:06

エクセルの自動ハイパーリンク機能が嫌いで切っている一人です。

でも、時々URL群を記入したものからブラウザを起動したいことがあるので、ダブルクリックでセル値のURLへリンクさせる以下のマクロを使用しています。

＞ＩＥは起動が遅く、更に、２つ、３つと同時に開こうとすると幾つもＩＥが
＞起動されるため～～
同様に感じましたので、ブラウザはＩＥのままですが、一度開けば以後はそれを利用するようにして、複数のブラウザが次々と起動されることがないようにしています。ご参考まで。
（エラー処理で判定していますが、エラーの種類を忘れてしまいました。一度エラー処理をはずして、そちらの環境でも同じエラー番号でＯＫかご確認ください。）

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　　If Left(Target.Text, 4) <> "http" Then Exit Sub
　　UrlDisp (Target.Text)
End Sub

Sub UrlDisp(url As String)
Static IE As Object
　　On Error Resume Next
　　IE.Navigate (url)
　　If Err = 91 Or Err = -2147417848 Then
　　　　Set IE = CreateObject("InternetExplorer.Application")
　　　　IE.Navigate (url)
　　End If
　　On Error GoTo 0
　　IE.Visible = True
End Sub

この回答への補足

早速の御回答ありがとうございました。

確認させていただいたところ
複数回ＩＥを起動しても、複数のＩＥが起動するのではなく、同じＩＥで処理されたのは確認しましたが、２回目以降は別のタグにすることは出来ないのでしょうか。

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

補足日時：2009/07/31 13:09

No.7 回答者： KenKen_SP 回答日時： 2009/07/31 22:34

標準モジュールにコピペしてるんじゃないかな・・？

#4 ご回答の貼り付け場所は、シートモジュールですよ。

この回答への補足

御回答ありがとうございました。

初めは、＃４に記載の
Option Explicit
Dim objIE As Object
～
　　　Cancel = True
End Sub
をシートモジュールに記載し、その後を標準モジュールに記載しました。

今回、全てをシートモジュールに書き換えましたがＩＥがタグではなく、毎回、別のＩＥが起動されました。

なお、記載していませんでしたがＩＥのバージョンは８です。

以上、ご迷惑をかけますが、よろしくお願いします。

補足日時：2009/07/31 22:57

この回答へのお礼

御回答いただいた方々
何が原因であったか判断がつきませんが
希望通りに動作する様になりました。
ありがとうございました。
今後ともよろしくお願いします。

お礼日時：2009/08/02 11:05

No.6 回答者： watabe007 回答日時： 2009/07/31 21:36

>既に解除したのですが・・

>上手く出来ません。
Excelのセルに設定されたハイパーリンクをまとめて解除する
http://www.atmarkit.co.jp/fwin2k/win2ktips/870hy …

この回答への補足

ハイパーリンクとして設定されているセルは全て解除しました。
ですが、上手くいきません。

補足日時：2009/07/31 22:05

No.5 回答者： watabe007 回答日時： 2009/07/31 19:32

セル上のURLがハイパーリンクにならないように

[ツール]-[オートコレクトのオプション]-[入力オートフォーマット]タブ
□インターネットとネットワークのアドレスをハイパーリンクに変更する
↑チェックを解除してくださいね

この回答への補足

何度も申し訳ありません。

既に解除したのですが・・
上手く出来ません。

補足日時：2009/07/31 20:29

No.4 回答者： watabe007 回答日時： 2009/07/31 19:29

ダブルクリックでの実行がお望みなら

(fujillinさんのコードを一部お借りしています。)
Option Explicit
Dim objIE As Object
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　　　If Left(Target.Text, 4) <> "http" Then Exit Sub
　　　UrlDisp (Target.Text)
　　　Cancel = True
End Sub
Sub UrlDisp(url As String)
　　　On Error Resume Next
　　　objIE.Navigate2 url, &H800
　　　If Err Then
　　　　　　Set objIE = CreateObject("InternetExplorer.Application")
　　　　　　objIE.Visible = True
　　　　　　objIE.Navigate url
　　　End If
　　　On Error GoTo 0
　　　AppActivate objIE
End Sub

この回答への補足

私の間違いがありました。
起動はしました。
でも、複数のＩＥが起動されてしまいます。

補足日時：2009/07/31 21:12

No.3 回答者： fujillin 回答日時： 2009/07/31 15:21

No2です。

こちらにタブブラウザの環境がないので、わからないのですが…

検索して見ると、↓のような情報がありました。
Navigate2メソッドを使用すれば、良いらしいです。
http://www.happy2-island.com/vbs/cafe02/capter00 …

この回答への補足

再三、御回答いただきありがとうございました。

初歩的な質問で申し訳ありませんが
いただいたサイトを確認しテストしたのですが上手く動作しません。
標準モジュールに入れたのですが間違いなのでしょうか。

補足日時：2009/07/31 19:33

No.1 回答者： watabe007 回答日時： 2009/07/30 22:38

こちらを参考に

http://www.ken3.org/cgi-bin/group/vba_ie_2007083 …

この回答への補足

早速の御回答ありがとうございました。

起動させることが出来ました。
ただ、ＩＥは起動が遅く、更に、２つ、３つと同時に開こうとすると幾つもＩＥが起動されるため、ＩＥ以外のブラウザを使用するかタグを使用して開くことは出来ないでしょうか。

再度、申し訳ありませんが、よろしくお願いします。

補足日時：2009/07/31 06:39