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.2

bluecampus · ベストアンサー

> objIE.Document.All(1).Innerhtml
ではなく aタグのみを列挙して、ちゃんと属性を取得したほうが確実ではないでしょうか？

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

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

お礼

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

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

回答No.1

miyuyu

こんばんは

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

https://login.yahoo.co.jp/config/login?.src=dir&lg=jp&.intl=jp&.done=http%3A%2F%2Fdir.yahoo.co.jp%2F
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="+encodeURIComponent(document.title)+"&u="+encodeURIComponent("http://dir.yahoo.co.jp/")+"&fr=ybm_dir
http://bookmarks.yahoo.co.jp/action/bookmark?t=Yahoo!%20JAPAN%E3%81%AE%E3%83%87%E3%82%A3%E3%83%AC%E3%82%AF%E3%83%88%E3%83%AA%E6%A4%9C%E7%B4%A2%20-%20Yahoo!%E3%82%AB%E3%83%86%E3%82%B4%E3%83%AA&u=http%3A%2F%2Fdir.yahoo.co.jp%2F&fr=ybm_dir
http://bookmarks.yahoo.co.jp/url?url="+encodeURIComponent("http://dir.yahoo.co.jp/")+"
http://bookmarks.yahoo.co.jp/url?url=http%3A%2F%2Fdir.yahoo.co.jp%2F
http://ameblo.jp/mikako-ryoma/entry-10190485890.html
http://www.kentei-uketsuke.com/ryoma.html
http://dir.yahoo.co.jp/pg/mycategory/

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

補足

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