VBAでソースから全てのURLを取得したい

VBAでソースに書いてある全てのURLを取得したいのですが、現状では一部しか取得できません。
文字数制限にでも引っかかっているのでしょうか？
どうすれば全てのURLを取得できるのか・・添削して頂けると or ヒントを教えて頂けると助かります。
よろしくお願いします。
(Excel2003を使用)

Sub test()
Dim objIE As Object
Dim objTAG As Object
Dim source As String
Dim url As String
Dim url_start As String
Dim url_end As String
Dim y As Long
url_end = 1
y = 1

Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = False
objIE.Navigate "http://dir.yahoo.co.jp/"

Do While objIE.Busy = True
DoEvents
Loop

Application.Wait Time:=Now + TimeValue("00:00:03")
source = objIE.Document.All(1).Innerhtml
Do While y < 10000
url_start = InStr(url_end, source, "<a href=", vbTextCompare)
If url_start = 0 Then
y = 10000
Else
url_end = InStr(url_start, source, ">", vbTextCompare)
url = Mid(source, url_start + 9, url_end - url_start - 10)
Cells(y, 1).Value = url
y = y + 1
End If
Loop
End Sub

No.1 回答者： miyuyu 回答日時： 2009/03/18 00:09

こんばんは

当方もExcel2003で実行してみました

https://login.yahoo.co.jp/config/login?.src=dir& …
http://www.yahoo.co.jp/
http://bb.yahoo.co.jp/
http://my.yahoo.co.jp/
http://help.yahoo.co.jp/help/jp/dir/
http://bookmarks.yahoo.co.jp/action/bookmark?t=" …
http://bookmarks.yahoo.co.jp/action/bookmark?t=Y …
http://bookmarks.yahoo.co.jp/url?url="+encodeURI …
http://bookmarks.yahoo.co.jp/url?url=http%3A%2F% …
http://ameblo.jp/mikako-ryoma/entry-10190485890. …
http://www.kentei-uketsuke.com/ryoma.html
http://dir.yahoo.co.jp/pg/mycategory/

が、吐き出されますが
どのように出力されれば正解なんですか
その辺教えてください

この回答への補足

http://dir.yahoo.co.jp/に記載されている全てのURLが出力されれば正解です。
よろしくお願いします。

補足日時：2009/03/18 01:18

No.2 ベストアンサー 回答者： bluecampus 回答日時： 2009/03/18 08:53

> objIE.Document.All(1).Innerhtml

ではなく aタグのみを列挙して、ちゃんと属性を取得したほうが確実ではないでしょうか？

documentのlinksコレクションからanchorオブジェクトを取得し、hrefプロパティの値を取得すればいいです。

参考
http://www.ken3.org/backno/backno_vba15.html#71

この回答へのお礼

素晴らしい・・・
完璧でした。

ありがとうございました。

お礼日時：2009/03/18 09:53