www.youtube.com
http://www.youtube.com/watch?v=Xeo4wnqXo7g
今回のソースと解説は http://ken3-info.blog.ocn.ne.jp/objie/2009/08/ie_url_c90d.html を 見て笑ってください。。。
>2.開催日を取り出す。
>(1.で表示されたIEから)、開催日のURLを取り出す。
>条件は、リンクの名称が XXXX〜日 (最後が日で終わる)アンカーテキストのリンクを取り出す。
>例)1回中山1日 1回中京1日、この飛び先URLを取り出す
Document.Links で リンク情報を取り出せるので、
.Href 'リンク先
.InnerText '内側のテキスト
を使い、If Right(objIE.Document.Links(i).InnerText, 1) = "日" の データを取り込みます。
'リンク情報を取り出す
Dim i As Integer 'ループの変数
For i = 0 To objIE.Document.Links.Length - 1
If Right(objIE.Document.Links(i).InnerText, 1) = "日" Then
'デバックで表示
Debug.Print objIE.Document.Links(i).Href 'リンク先
Debug.Print objIE.Document.Links(i).InnerText '内側のテキスト
End If
Next i
これで、開催日がなんとか、取り出せた、、、
QA0816 VBA IE操作 リンク先URL取得 三流君 試行錯誤 objIE Document.Links .Href .InnerText
VBAでIEのリンク操作は http://www.ken3.org/cgi-bin/group/vba_ie_link.asp を見てください。
