VBS で IE ウィンドウがアクティブにならない

質問

Inputbox で URL 文字列の一部を打ち込むと、IE オブジェクトがある場合には新規タブを作成し、当該サイトへアクセスするスクリプトを作っています。
後述がサンプルです。

スクリプトの最後にウィンドウをアクティブにするコードを入れているのですが、スクリプト自体はエラーなく完了するものの、IE ウィンドウをアクティブにすることができません。

Win10+IE11 を使っているのですが、何かコードが足りなかったりするのでしょうか。。。
それとも、Win10 + IE11 環境ではそもそも VBS で IE ウィンドウをアクティブにすることはできないのでしょうか。。。

アドバイスを下さると幸いです。
よろしくお願いいたします。

--------------------------------------------------------------------
Dim linknum
dim objIE
dim spurl

linknum=Inputbox("リンク番号を入力してください。")
spurl="https://xxxx" & linknum

'Shell.Applicationオブジェクトの作成
Set objShell = CreateObject("Shell.Application")

'IEウィンドウの個数をカウント
lngCount = 0
For Each objWindow In objShell.Windows
lngCount = lngCount + 1
Next

With objShell.Windows

'IE オブジェクトがないときは、新しく作成する
If lngCount = 0 Then
.Item.Navigate2 spurl
lngCount = lngCount + 1
objIE.FullScreen = True
objIE.Visible = True

'IE オブジェクトがあるときは、タブを操作する（新しいタブを作成）
Else
.Item(lngCount - 1).Navigate2 spurl,&H800

IE ウィンドウをアクティブにする
Set WshShell=Wscript.CreateObject("Wscript.Shell")
WshShell.AppActivate "ページタイトル"
WshShell.SendKeys "%( )"
WshShell.SendKeys "R"

End If
End With
-------------------------------------------------------------------------------

回答No.2

watabe007 · ベストアンサー

>Win10 + IE11 環境ではそもそも
Win7(64bit) IE11では動きましたが
Option Explicit
Dim objIE, objShell, objWshShell, objWin
Dim linknum, spurl

linknum = Inputbox("リンク番号を入力してください。")
spurl="https://xxxx" & linknum
'Shell.Applicationオブジェクトの作成
Set objShell = Wscript.CreateObject("Shell.Application")
'既に起動しているIEを検索
Set objIE = Nothing
For Each objWin In objShell.Windows
If TypeName(objWin.document) = "HTMLDocument" Then
'見つかればobjIEオブジェクトに格納
Set objIE = objWin
Exit For
End If
Next
If objIE is NothIng Then
'起動しているIEが無ければ新たに作成
Set objIE = Wscript.CreateObject("InternetExplorer.Application")
With objIE
.Visible = True
.Navigate spurl
End With
Else
'IEが起動しておれば最終タブを取得
objIE.Navigate2 spurl, &H800
WScript.sleep 250
Set objIE = objShell.Windows.Item(objShell.Windows.Count - 1)
Do While objIE.Busy = True Or objIE.readyState <> 4
WScript.Sleep 250
Loop
Set objWshShell= Wscript.CreateObject("Wscript.Shell")
objWshShell.AppActivate objIE
WScript.Sleep 1000
objWshShell.SendKeys "%( )"
WScript.Sleep 250
objWshShell.SendKeys "x"
End If

お礼

書き込みありがとうございます!
IE ウィンドウがすぐ後ろにある状態で Inputbox を表示して入力すると、ウィンドウがアクティブになりました。

ありがとうございました。今後ともよろしくお願いします。

回答No.1

BarcodeMaster

VBSって良く知らないんですが、
objIE.FullScreen = True
これってエラーになりませんか？

Windows10で動くかどうかわかりませんが、
過去に同じ質問見つけましたので、貼っておきますね。

http://qa.itmedia.co.jp/qa6267343.html

補足

ありがとうございます。貼ってくださった質問は見ておりました。
そのため、AppActive のコードを入れたのですが、期待する動作にならなくて。。。

また、質問本文で記載している通り、コード実行時にエラーメッセージは表示されないです。。。

引き続き、何かありましたらよろしくお願いいたします。