無限ループ objIE.Navigate
昨日以降(0) ２日前以降(0) ３日前以降(0) ４日前以降(0) ５日前以降(0)
| 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です。 よろしくお願いします。 |
昨日以降 ２日前以降 ３日前以降 ４日前以降 ５日前以降
