【VBA】WEBページを開く

#Excel VBAでWEBページを開く方法
　VBAでURLの分かっているWEBページを開く方法をまとめます。
【参考】http://officetanaka.net/excel/vba/tips/tips42.htm#extension02

##■InternetExplorerを指定して開く方法

Sub OpenWebPage()
  Dim URL As String
  Dim IE As Object
  Set IE = CreateObject("InternetExplorer.Application")
  URL = "https://www.google.com/"
  With IE
    .Navigate (URL)
    .Visible = True
  End With
  Set IE = Nothing
End Sub

CreateObject関数でIEを制御します。
もしくはEXPLORER.EXEを使用して開く方法もあります⇩。

Sub OpenWebPage()
  Shell "EXPLORER.EXE https://www.google.com/"
End Sub

ここで、C:\Program Files\Internet ExplorerにはデフォルトでPathが通っていないため、

  Shell "IEXPLORER.EXE https://www.google.com/"

とするとエラーとなります。そこで、エクスプローラ（EXPLORER.EXE）を使用して開くという方法をとっています。引数にURLを指定してエクスプローラを実行するとIEでページが表示される仕様となっています。

##■ExcelのHyperlinkを使う方法

Sub OpenWebPage()
  Range("A1").Hyperlinks(1).Follow NewWindow:=True
End Sub

⇧はセル（この場合はA1）にハイパーリンクが設定されている場合に有効です。ハイパーリンクが用意されていない場合は、⇩のようにハイパーリンクを作ることもできます。

Sub OpenWebPage()
  ActiveSheet.Hyperlinks.Add( Anchor:=Range("A1"), _
    Address:="https://www.google.com/", _
    TextToDisplay:="Google").Follow
End Sub