エクセル小僧：ハイパーリンクからIEでサイトを開く

エクセルのハイパーリンク（とあるサイトのURL）

をクリックしたら、IEを開いて、そのURLを開くようにしたいのだけど、うまくいってません。

【背景】
・デフォルトのブラウザはChrome
・サイトによっては、IEでないと開けない。なので、VBAでIEを開きたい

【事前準備】
エクセルのVBEで、下記の２つのライブラリを有効にする必要があるようです。
・Microsoft HTML Object Library
・Microsoft Internet Controls

https://tonari-it.com/ie-setting-navigate/

【マクロ】
Sub OPie1(myURL As String)
  '【機能】指定のURLをIEで開く
  '【引数】
  ' myURL : IEで開くURL
  '【変数】
  Dim objIE As InternetExplorer
  '【コード】
  'IE(InternetExplorer)のオブジェクトを作成する
  Set objIE = CreateObject("InternetExplorer.Application")
  'IE(InternetExplorer)を表示する
  objIE.Visible = True
  '指定したURLのページを表示する
  objIE.Navigate myURL
  '完全にページが表示されるまで待機する
  Do While objIE.Busy = True Or objIE.ReadyState <> 4
    DoEvents
  Loop
End Sub

こんなマクロをお試しで使ってみましたが、IEとChromeの２つのウィンドウが開いてしまいます。

http://www.vba-ie.net/ie/navigate.html

タグ：エクセル VBA IE

コメント 1

ヤバイぜ!　ありがとうございます[__猫]
by cheese999 (2017-06-20 07:13)