無限ループ objIE.Navigate 削除
| Message#1 2014年9月15日(月)12時55分 From: 無限ループ |
| win8.1でvbaでブラウザを操作しています。 ＸＰからＷＩＮ７までは、 Sub Sample() Dim objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True objIE.Navigate "http://www.yahoo.co.jp/" Do While objIE.Busy = True DoEvents Loop objIE.Navigate "http://shopping.yahoo.co.jp/" ・・・ このように、 objIE.Navigate に、ＵＲＬを入れ替えても、問題なく表示できたのですが ｗｉｎ８からは objIE.Navigateで、１つ目のＵＲＬを表示させ、２つ目のＵＲＬを表示させると、 見た目は、 二つ目の"http://shopping.yahoo.co.jp/"が表示されるのですが、 objIEの中身は、１つ目の "http://www.yahoo.co.jp/"のままです。 なので、 objIE.Navigate "http://shopping.yahoo.co.jp/" のあとに、 Do While objIE.Busy = True DoEvents Loop をしても、 objIEに格納されている値は、 "http://www.yahoo.co.jp/"だから 無限ループしてしまいます。 この現象を回避するにはどうすればいいでしょうか？ エクセル２０10です。 よろしくお願いします。 |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
