VBAのIE操作でヤフーファイナンスの検索後にタイトルを取得するには
昨日以降(0) ２日前以降(0) ３日前以降(0) ４日前以降(0) ５日前以降(0)
| 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 |
昨日以降 ２日前以降 ３日前以降 ４日前以降 ５日前以降
