So-net無料ブログ作成

エクセル小僧:ハイパーリンクからIEでサイトを開く [コンピューター]

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

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

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

【事前準備】
エクセルのVBEで、下記の2つのライブラリを有効にする必要があるようです。
・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の2つのウィンドウが開いてしまいます。

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

[猫]
タグ:IE エクセル VBA
ヤバイぜ!(10)  コメント(1)  トラックバック(0) 
共通テーマ:日記・雑感

ヤバイぜ! 10

コメント 1

cheese999

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

コメントを書く

お名前:[必須]
URL:
コメント:
画像認証:
下の画像に表示されている文字(英大文字の「オー」、英小文字の「ユー」、アラビア数字の「ハチ」、アラビア数字の「イチ」、アラビア数字の「ニ」)を入力してください。

Facebook コメント

トラックバック 0

トラックバックの受付は締め切りました