Access VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1692 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 お礼[未読]
【5714】ボタンでIEを開いた時に最前面へ表示する...
質問  いなたく  - 05/8/1(月) 16:58 -
引用なし
パスワード
   初めまして。VBA初心者ですがよろしくお願いします。
いろいろ調べて試してみたのですが、どうも行き詰ってしまったので、(>_<)
どなたかご教授願いますm(__)m

現在、ACCESSのイベントビルドでボタンをクリックしIEを表示するように
以下のようにして設定しています。
動作的には問題ないのですが、IEのウィンドウが後方に表示されてしまいます。
これをボタンをクリックした際に表示されるIEのウィンドウを最前面に表示
させたいのですが、どなたかご教授願いませんでしょうか？
よろしくお願いします。m(__)m

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

Private Sub ボタン_Click()
　　Dim ObjIE
　　Set ObjIE = CreateObject("InternetExplorer.Application")
　　ObjIE.Navigate Me.ボタン
　　ObjIE.Visible = True
　　Set ObjIE = Nothing
End Sub

==============================================================
【5715】Re:ボタンでIEを開いた時に最前面へ表示す...
回答  小僧  - 05/8/1(月) 17:40 -
引用なし
パスワード
   ▼いなたく さん：
こんにちは。

IEを立ち上げて該当のページを参照するだけでしたら、

Private Sub ボタン_Click()
Dim WSH As Object
　　Set WSH = CreateObject("Wscript.Shell")
　　WSH.Run "http://www.vbalab.net/vbaqa/c-board.cgi?" _
　　　　　& "cmd=ntr;tree=5714;id=access", 3
　　Set WSH = Nothing
End Sub

こんな感じでできますがいかがでしょうか。

外していたら申し訳ないです。
【5717】Re:ボタンでIEを開いた時に最前面へ表示す...
回答  YU-TANG WEB  - 05/8/1(月) 23:08 -
引用なし
パスワード
   こんばんは、YU-TANG です。

結局 呼んでいるのは Shell なので、こーゆーのもアリかも。

Shell Environ$("ProgramFiles") & _
　　　"\Internet Explorer\IEXPLORE.EXE " & _
　　　"http://www.vbalab.net/", _
　　　vbNormalFocus)
【5726】Re:ボタンでIEを開いた時に最前面へ表示す...
お礼  いなたく  - 05/8/2(火) 11:40 -
引用なし
パスワード
   YU-TANGさん、こんにちは。
回答頂きありがとうございます。

YU-TANGさんにご教授頂いた方法で試したところ
デバッグが走りうまくいきませんでした。
おそらくこれは私が未熟な為書き方が悪いのだと思います。
せっかく教えて頂いたのに活用できずすみません。(>_<)

親切な回答を頂き本当にありがとうございました。m(__)m
【5727】Re:ボタンでIEを開いた時に最前面へ表示す...
お礼  いなたく  - 05/8/2(火) 11:41 -
引用なし
パスワード
   ▼小僧 さん：
>▼いなたく さん：
小僧さん、こんにちは。
早々な回答ありがとうございます。

小僧さんにご教授頂いたやり方で試したところ
前面表示されうまく動作しました。ありがとうございますm(__)m
ですが、別問題で今までは他にIEのウィンドウを開いていた時には、
新たにIEの別ウィンドウを立ち上げ表示していたのですが、
今回の設定に変えてみると先に別のIEウィンドウを立ち上げていると
そちらをつかんでページを更新してしまうようになりました。
新たにこの点を改善しなければいけなくなりました。(*_*)
この点についてまた調べてみます。
つまずいたらまた質問させて頂くかと思いますのでその時は
よろしくお願いします。どうもありがとうございました。m(__)m

親切な回答を頂き本当にありがとうございました。m(__)m
【5729】Re:ボタンでIEを開いた時に最前面へ表示す...
質問  いなたく  - 05/8/2(火) 14:26 -
引用なし
パスワード
   こんにちは。再びの質問で申し訳ありませんが、ご教授願います。

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

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

どうかお力をお貸しください!
よろしくお願い致します。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
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1692 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078249
(SS)C-BOARD v3.8 is Free