VBAで文字の位置が正確に取得できない
Excel2003のマクロで、URLを抜き出すマクロを作っているのですが、なぜかurl_endの値が正確に取得できません。何がいけないのでしょうか?
事象
url_endに格納される値がなぜか1376(くらいだったような・・)になってしまう。
url_startには1260が格納されており、<a href=の部分をきちんと取得している。
ソース
Sub test()
Dim objIE As Object
Dim objTAG As Object
Dim souce As String
Dim url As String
Dim url_start As String
Dim url_end As String
url_end = 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:02")
url_start = InStr(url_end, objIE.Document.All(1).Innerhtml,"<a href=", vbTextCompare)
url_end = InStr(url_start,objIE.Document.All(1).Innerhtml, ">", vbTextCompare)
url = Mid(objIE.Document.All(1).Innerhtml, url_start, url_end)
Cells(1, 1).Value = url
End Sub
お礼
ありがとうございました。