IEのリンクを同じウィンドウで開くにはどうしたらよいか 削除
Message#2 2014年9月13日(土)00時36分 From: 管理人 |
別のInternetExplorerが開くということはaタグにtargetが設定されているかと思います。 targetはリンク先の内容やフォームの結果をどのウィンドウ(フレーム)に表示するかを指定するものです。 別ウィンドウが表示されているということは、「_blank」が設定されているかと思います。 例)<a href="http://www.vba-ie.net/index.html" target="_blank">VBAのIE制御入門</a> 今回は、同じウィンドウで処理をしたいということですので、このtargetにVBAで「_self」を設定してしまえば、簡単に実現することができます。 リンククリック処理まではうまくいっているということですので、クリック前にtarget = "_self"を設定するとうまくいくかと思います。 【参考ページ】 リンククリック:http://www.vba-ie.net/element/subroutine-linkclick.html 【プログラム】 For Each objTag In objIE.document.getElementsByTagName("a") If InStr(objTag.outerHTML, "一意のキーワード") > 0 Then objTag.target = "_self" objTag.Click Call ieCheck(objIE) Exit For End If Next 'ページ完全読込処理サブルーチン Sub ieCheck(objIE As InternetExplorer) Dim timeOut As Date timeOut = Now + TimeSerial(0, 0, 10) Do While objIE.Busy = True Or objIE.ReadyState <> 4 DoEvents Sleep 100 If Now > timeOut Then objIE.Refresh timeOut = Now + TimeSerial(0, 0, 10) End If Loop timeOut = Now + TimeSerial(0, 0, 10) Do Until objIE.document.ReadyState = "complete" DoEvents Sleep 100 If Now > timeOut Then objIE.Refresh timeOut = Now + TimeSerial(0, 0, 10) End If Loop End Sub |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。