既定のCromeのブラウザ以外で特定のページをIEのブラウザで開く方法

私はブラウザをInternet Explorer・Google Crome・Firefoxの3つを使っているんですが・・・

既定のブラウザは最初から既定になってたInternet Explorerにしてたんですが、

最近、このInternet Explorerが頻繁にバグるし、鬱陶しいので、既定のブラウザをGoogle Cromeに変更したんです。


これで問題ないはずやったんです・・・が・・・

昨日、ヤマトがWeb上で提供している「ヤマト宅急便の送り状発行ソフトB2web」を開いたところ問題が発生！

Googel Cromeでは一部機能が働きません・・・とのことで、送り状の印刷ができなかったんです・・・

じゃ、送り状発行ソフトをInternet Explorerで開けばいいわけなんですが・・・邪魔くさいですよね。

私の場合、兎に角、無駄を省きたいとの思いで・・・

仕事上で必要なことは

Excelで索引ページを作ってるんですね。

Webページへもリンクを貼って

すぐ開けるようにしてるんですが・・・

既定のブラウザをGoogle Cromeに替えたら、リンクも必然的にGoogle Cromeで開こうとするわけです・・・


じゃ、如何するということで・・・VBA初心者の私が考えたのが、

ヤマト送り状発行ソフトだけをマクロでInternet Explorerを指定して開くようにすれば良いだろう・・・と、挑戦してみました。

そのプログラムが下記の通りです。

Sub ヤマト運輸送り状ソフト()
'
' ヤマト運輸送り状ソフト Macro
'

'
Dim URL As String, IE As Object
Set IE = CreateObject("InternetExplorer.Application")
URL = "https://bmypage.kuronekoyamato.co.jp/bmypage/servlet/jp.co.kuronekoyamato.wur.hmp.servlet.user.HMPLGI0010JspServlet"
With IE
.Navigate (URL)
.Visible = True
End With
Set IE = Nothing

End Sub

このマクロを先ほどの索引ページの「ヤマト運輸送り状ソフト」に登録すれば、

このページはInternet Explorerで開くことが出来るようになりました。

勿論、既定のブラウザはGoogle Cromeのままです。