Sub testA()
Dim objIE As Object
Dim i As Long
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate "http://www.yahoo.co.jp/"
objIE.Visible = True
Do While objIE.Document.ReadyState <> "complete"
DoEvents
Loop
For i = 0 To objIE.Document.Links.Length - 1
Debug.Print objIE.Document.Links(i).href
Next i
End Sub
の、「Document.Links.Length - 1」の-1ってなぜ必要なのですか?
「Document.Links.Length」はリンクの最大数ですよね?
マイナス1しちゃうと一番最後のリンクが取得されなくなってしまいませんか?
試しにマイナス1を削除したら
iの最大値で
実行時エラー91になりました。
そもそもなんでFor i = 0で始まってるのでしょうか?
リンクの数が300個だとしたら
0から299個目までループしてる事にならないのですか?
お礼
ありがとうございます。