vba IE操作 教えてgoo マイページ

質問

賃貸・タウン情報の「Q&A広場」 で教えてgooを使っているのですが
２個目のie_waitが機能しないというか意味がない状態になります。

**********************************************************
Sub test()

Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True

objIE.Navigate "http://hiroba.chintai.net/login?return_url=http%3A%2F%2Fhiroba.chintai.net%2Fmypage#tabs"

Call ie_wait '1個目

objIE.Document.all("mailaddress").Value = "あああ"
objIE.Document.all.Password.Value = "1111"

objIE.Document.all.login_skip.Click
objIE.Document.Forms(1).submit

Call ie_wait '２個目

End Sub

--------------------------------------------------

Sub ie_wait()
Const READYSTATE_COMPLETE As Long = 4

Do Until objIE.ReadyState = READYSTATE_COMPLETE
Loop

Do While objIE.Busy = True
DoEvents
Loop

End Sub
**********************************************************

二個目のie_waitは、
ie_waitの操作が完了しないのに次のコードへ進んでしまいます。

一個目のie_waitは、
objIE.Navigate "http://hiroba.chintai.net/login?return_url=http%3A%2F%2Fhiroba.chintai.net%2Fmypage#tabs"
が表示さえるのを待つコードですが、
objIE.Document.Forms(1).submitでログインして、マイページが表示されるまで待つには、
どのようなコードを入れればいいのでしょうか？

回答No.1

xls88 · ベストアンサー

1回目も上手く動かないのでは？

変数objIEをモジュールの宣言領域で宣言します。
＜参考＞
変数の適用範囲
http://officetanaka.net/excel/vba/variable/05.htm

Dim objIE As Object
Sub test()
・
・
Call ie_wait
・
End Sub
Sub ie_wait()

End Sub

或いは
サブプロシージャに変数を渡すようにする
＜参考＞
参照渡しと値渡し
http://officetanaka.net/excel/vba/tips/tips94.htm

Sub test()
Dim objIE As Object
・
・
Call ie_wait(objIE)
・
End Sub
Sub ie_wait(ByVal objIE As Object)

End Sub

Option Explicitも使った方が良いと思います。
＜参考＞
Option Explicitって何？
http://officetanaka.net/excel/vba/beginner/11.htm

お礼

Option Explicit
と参照渡しに書き換えてみます！ありがとうございました。

回答No.2

a0u283mitg

objIEの宣言範囲どうなっているんでしょうか？

待機処理については、こちらで詳しく説明されているので一度確認してからトライしたらどうですか？

objIE.Document.all.login_skip.Clickがなにかの処理ボタンならその間の待機処理が抜けているように思えますが。。。

http://www.vba-ie.net/ie/navigate.html

お礼

1さん同様、変数の宣言に問題があるのですね。
みなおしてみます。
ありがとうございました。