削除

VBAのIE操作でヤフーファイナンスの検索後にタイトルを取得するには削除

Message#1 2014年11月6日(木)07時49分
From: CVDVD

表題の通りでVBAのIE操作でヤフーファイナンスの検索後にタイトルを取得するにはどうしたらいいでしょうか？
ヤフーファイナンスで会社名を検索してその会社のタイトルと企業コードを取得したいのですが、その文字を取得する方法が分かりません。

一応こちらでやったもので試したところ検索前のページが取得されてしまいます。
具体的には2ページ目のタイトルを取得すると1ページ目のタイトルと同じものが取得されてしまいます。

環境はWindows8のExcel2010を利用しています。

ご教授よろしくお願いします。

■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

上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。