VBAのIE操作で別ウィンドウを開かないようにするには 削除
Message#2 2014年10月8日(水)20時17分 From: 管理人 |
別ウィンドウが開くということはaタグのtargetが「_blank」で設定されているかと思います。 「_blank」は常に新しいウィンドウで開く設定ですので、自分自身のウィンドウで表示させる「_self」を設定させる必要があります。 こちらは「Target」プロパティで設定できますので、以下のような設定をしてください。 For Each objTag In objIE.document.getElementsByTagName("a") If InStr(objTag.outerHTML, tagStr) > 0 Then ’taegetに"_self"を設定 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 |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。