12/02/14 15:30:51.13
VBAについて質問させてください！ OS Windows7 2003使ってます。
下記のプログラムでYAHOO競馬からラップタイムって物だけをダウンロードしてきてるんですが、今は
１Ｒづつしか持って来れてないんで、これを全レース（最大で1日36Ｒ）一回の作業でダウンロードしてくる
プログラムに直せませんか？
宜しくお願いいたします！
Sub test()
Dim ie As Object
Dim elements As Object
Dim i As Integer
Cells.Clear
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate "URLﾘﾝｸ(keiba.yahoo.co.jp)"
Do While ie.Busy Or ie.ReadyState <> 4: DoEvents: Loop
Set elements = ie.Document.getElementsByTagName("div")
For i = 0 To elements.Length - 1
If elements(i).innertext Like "ラップタイム*" Then
Set elements = elements(i).getElementsByTagName("td")
Exit For
End If
Next
For i = 0 To elements.Length - 1
Range("B" & i + 1).Value = elements(i).innertext
Next
ie.Quit
Set ie = Nothing
End Sub