www.youtube.com
http://www.youtube.com/watch?v=QQwBGZp3oXs
今回のソースと解説は http://ken3-info.blog.ocn.ne.jp/objie/2009/08/ie_url_c90d.html を 見て笑ってください。。。
月別の表示を行ないます。
>1.まず、年と月単位で 表示する。
http://keiba.yahoo.co.jp/schedule/2009/08/
のURLを作成したいので、
Dim strURL As String '受け取った引数からURLを作成
と変数を１つ作成して、
'例)http://keiba.yahoo.co.jp/schedule/2009/08/
strURL = "http://keiba.yahoo.co.jp/schedule/" & yyyy & "/" & Right("0" & mm, 2)
で文字列を連結させ作成しました。
ポイントは、1〜9を01,02...09と頭０を付けたいので、Right("0" & mm, 2)としました。
あとは、いつものようにIEのオブジェクトを作り、URLを表示させました。
Sub testmain()
Call yyyy_mm(2009, 7)
End Sub
'年と月を受け取り、開催日・場所単位で処理する。
Sub yyyy_mm(yyyy As Integer, mm As Integer)
Dim strURL As String '受け取った引数からURLを作成
'例)http://keiba.yahoo.co.jp/schedule/2009/08/
strURL = "http://keiba.yahoo.co.jp/schedule/" & yyyy & "/" & Right("0" & mm, 2) & "/"
'IEの起動
Dim objIE As Object '変数を定義します。
Set objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。
objIE.Visible = True '可視、Trueで見えるようにします。
'表示位置(左上の座標)とサイズ(高さ・幅)を調整する
objIE.FullScreen = False '※Trueのモードだとびっくりするよ
objIE.Top = 100 '左上 上位置
objIE.Left = 100 '左上 左位置
objIE.Width = 800 '横幅
objIE.Height = 600 '高さ
'処理したいページを表示します。
objIE.Navigate strURL '.Navigate メソッドで競馬の開催日を表示する。
'ページの表示完了を待ちます。
While objIE.ReadyState <> 4 Or objIE.Busy = True '.ReadyState <> 4の間まわる。
DoEvents '重いので嫌いな人居るけど。
Wend
End Sub
QA0816 VBA IE操作 リンク先URL取得 三流君 試行錯誤 objIE Document.Links .Href .InnerText
VBAでIEのリンク操作は http://www.ken3.org/cgi-bin/group/vba_ie_link.asp を見てください。
