Excel VBA 質問スレ Part23at TECHExcel VBA 質問スレ Part23 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト200:デフォルトの名無しさん 12/02/13 21:24:43.24 >>197 ディレクトリだけ？ ファイル名は正しく表示されるの？ 201:デフォルトの名無しさん 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 "http://keiba.yahoo.co.jp/race/result/1206010512/" 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 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch