三流君 ken3のmemo置き場

三流プログラマーのメモ書きです。主にVBAやWindowsの話題が多いです

挨拶・自己紹介:
失敗続きのAB型の変わり者 :三流プログラマー Ken3です
フリーのエンジニア・個人事業主です・・と書くと聞こえはイイが(それとなくカッコよく聞こえるが)、 現在は小さな案件の受注請負 と 短期派遣 で 日々つつましく?ほそぼそと暮らしてます。

よく検索されるキーワード: [質問回答XXXXさんへ] [CreateObject] [VBA] [JRA競馬オッズ]

QA0816 003 Document.Links から アンカーテキストをチェックする

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

VBAIEのリンク操作は http://www.ken3.org/cgi-bin/group/vba_ie_link.asp を見てください。

Ken3 ホームページ 目次

分類:HPを大きく分けると4つの柱(分類)です。

  1. [VBA・マクロ プログラミング]の解説
    当店の人気はVBA系のCreateObject("XXXXXX.application")で他のアプリケーションを操作するサンプルが人気です
  2. [プログラマーの愚痴]では、あまり見せたくない三流プログラマーの内面かな。
    三流君を踏み台にする
  3. [古いクラシック ASP(Active Server Pages)]の解説。
  4. [元コンビニ店長時代の話]が弟に巻き込まれ、失敗した脱サラ、畑違い?の仕事で失敗。
主に上記4つの分類でHP作成やメルマガの発行を行ってます。
※更新頻度が落ちていて情報の鮮度が悪いです。



本当に三流なんです(笑):たまにスゴイですねなんて言われることもありますが、
真実は→ [三流君の真実は...] ←を初めに見てくださるとわかると思います。
(からくりは、成功例↑しか載せてなくて ヒドイ失敗例はお蔵入り迷宮入りが多かったりします)