既定のブラウザは最初から既定になってた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
'
' ヤマト運輸送り状ソフト 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のままです。
