Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


7457 / 9994 ←次へ | 前へ→

【5729】Re:ボタンでIEを開いた時に最前面へ表示す...
質問  いなたく  - 05/8/2(火) 14:26 -

引用なし
パスワード
   こんにちは。再びの質問で申し訳ありませんが、ご教授願います。

現在、前回ご教授頂いたやり方で試しIEを最前面へ開くようには
なったのですが、IEが新しい別ウィンドウ(プロセス)で開いていたのが
同時に複数のIEを起動して利用している場合に実行前に開いていたIEを
使いウィンドウを開くようになってしまいました。
いろいろ調べてみたのですが、私の力不足か(T_T)新たに質問させて
頂くことに至りました。

以下に今わかっている2通りのやり方を記載しています。
この2つの機能を一緒に含める方法はありませんでしょうか?

どうかお力をお貸しください!
よろしくお願い致します。m(__)m

================= IEを別ウィンドウで開く方法 ==================

Private Sub ボタン_Click()
  Dim ObjIE As Object
  Set ObjIE = CreateObject("InternetExplorer.Application")
  ObjIE.Navigate "http://~"
  ObjIE.Visible = True
  Set ObjIE = Nothing
End Sub

===============================================================

================= IEを最前面で開く方法 ==================

Private Sub ボタン_Click()
  Dim ObjIE As Object
  Set ObjIE = CreateObject("Wscript.Shell")
  ObjIE.Run "http://~"
  Set ObjIE = Nothing
End Sub

=========================================================

PS.初心者ゆえに、この場合新たな質問として掲示し直した方がよかったのか?
  わかりませんでしたので、とりあえず余分なレスを増やさないためにも
  こちらに追記しました。
  もし別物であつかった方が良かったり、ここに追記することに間違いが
  ありましたらすみませんm(__)m
2,534 hits

【5714】ボタンでIEを開いた時に最前面へ表示する方法 いなたく 05/8/1(月) 16:58 質問
【5715】Re:ボタンでIEを開いた時に最前面へ表示す... 小僧 05/8/1(月) 17:40 回答
【5727】Re:ボタンでIEを開いた時に最前面へ表示す... いなたく 05/8/2(火) 11:41 お礼
【5729】Re:ボタンでIEを開いた時に最前面へ表示す... いなたく 05/8/2(火) 14:26 質問
【5717】Re:ボタンでIEを開いた時に最前面へ表示する... YU-TANG 05/8/1(月) 23:08 回答
【5726】Re:ボタンでIEを開いた時に最前面へ表示する... いなたく 05/8/2(火) 11:40 お礼

7457 / 9994 ←次へ | 前へ→
ページ:  ┃  記事番号:
1078264
(SS)C-BOARD v3.8 is Free