vba ie操作 検索後のタイトルが取得できない

質問

vba　ie操作
ヤフーファイナンス　検索後のタイトルが取得できない

ｗｉｎ８、エクセル２０１０です。

ヤフーファイナンスで会社名を検索して、その後のコードを取得したいのですが
その場合、タイトルに企業コードがあるので、その文字を取得しようとしたら、
検索前のページが取得されてしまいます。
------------------------------------------------------------

Dim objIE As New InternetExplorer

Sub test()

Dim str企業名 As String
Dim myObj As Object

str企業名 = "ホテルオークラ"

Set objIE = CreateObject("InternetExplorer.application")

With objIE
.navigate "http://finance.yahoo.co.jp/"
.Top = 0
.Left = 0
.Width = 1000
.Visible = True
End With

Call IE_wait

For Each myObj In objIE.document.all.tags("input")
If myObj.ID = "searchText" Then
myObj.Value = str企業名
Exit For
End If
Next

For Each myObj In objIE.document.all.tags("input")
If myObj.ID = "searchButton" Then
myObj.Click
Call IE_wait
Exit For
End If
Next

Debug.Print objIE.document.Title

Set objIE = Nothing

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

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

というコードなのですが
検索語の２ページ目は
「(株)京都ホテル【9723】：株式-株価 - Yahoo!ファイナンス」
というタイトルなのに
１ページ目と同じ
「Yahoo!ファイナンス - 株価やニュース、企業情報などを配信する投資・マネーの総合サイト」
が返ります。

なぜ次のページのタイトルが取得できないのでしょうか？

画面上ＩＥブラウザには２ページ目が表示されています。

回答No.2

DOUGLAS_

> １ページ目と同じ
> 「Yahoo!ファイナンス - 株価やニュース、企業情報などを配信する投資・
> マネーの総合サイト」
> が返ります。

　では、「ObjIE.Document.Title」が「(株)京都ホテル【9723】：株式/株価 - Yahoo!ファイナンス」になるまで待ってみてはいかがでしょうか？

Option Explicit
Dim objIE As New InternetExplorer
Sub test()
　　Dim str企業名 As String
　　str企業名 = "ホテルオークラ"
　　With objIE
　　　　.navigate "http://finance.yahoo.co.jp/"
　　　　.Top = 0: .Left = 0: .Width = 1000: .Visible = True
　　　　While .Busy Or .ReadyState <> 4: DoEvents: Wend
　　　　.Document.all.searchText.Value = str企業名
　　　　.Document.all.searchButton.Click
　　　　While .Busy Or .ReadyState <> 4: DoEvents: Wend
　　　　Do: Loop Until Left(.Document.Title, 6) <> "Yahoo!"
　　　　Debug.Print .Document.Title
　　End With
　　Set objIE = Nothing
End Sub

回答No.1

kumatti1

myObj.Clickの後のCall IE_waitを、For～Nextステートメントの外に出してみたらどうですか。