Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 7 Professional : Excel 2013)
IE操作で複数のタブを開きたいのですが、教えて下さい。
投稿日時: 19/11/08 18:14:26
投稿者: 縞縞縞

いつも大変お世話になっています。
VBAでIEを操作するコードを作成しています。一つのウィンドウに2つのタブを開くようにしています。
最近、社内のイントラネットも開くようになったため、オートメーションエラーが多発するようになりました。そこでSet方法をCreateObject から InternetExplorerMediumに変更したところオートメーションエラーは表示されなくなりました。
 
しかし【変更後】は二つのウィンドウが表示されるようになりました。
一つめのウィンドウにはAサイトのみ表示され、
二つめのウィンドウには、空タブとBサイトの2つのタブが表示されるようになりました。
 
この原因は、InternetExplorerMediumを用いたからだと思いますが、一つのウィンドウに、AとBを表示させる方法をお教え願えませんでしょうか。お手数をおかけしますがよろしくお願いいたします。
 
【変更前】
  Dim IE As InternetExplorer
  Set IE = CreateObject("InternetExplorer.Application")
  IE.Visible = True
  IE.Navigate2 "http:〜/"     ’---Aサイト
  While IE.ReadyState <> 4 Or IE.Busy = True
         DoEvents
  Wend
 IE.Navigate2 "http:〜/", &H800 ’---Bサイト
 
【変更後】
  Dim IE As InternetExplorer
  Set IE = New InternetExplorerMedium
  IE.Visible = True
  IE.Navigate2 "http:〜/"     ’---Aサイト
  While IE.ReadyState <> 4 Or IE.Busy = True
         DoEvents
  Wend
 IE.Navigate2 "http:〜/", &H800 ’---Bサイト

投稿日時: 19/11/09 17:35:19
投稿者: 縞縞縞

この質問ですが、再度IEそのウィンドウを掴みにいき、
新しいタブを追加させたところ、無事にタブが追加できました。
よって、解決とさせていただきます。
皆様、お騒がせ致しました。
 
今後ともよろしくお願いいたします。