Web sayfasındaki html linkleri listelemek.

[askm]

Kolay gelsin.
İnternet explorer üzerinden açılan bir sayfadaki linkleri listelemek istiyorum. Sonra da bu link üzerinden içeriği DENEME yazan sayfayı açtırmak istiyorum mümkün müdür?
Teşekkürler.

 

[emmi]

Bu soruya cevap alabildinizmi acaba

 

[excelokyanus500]

Kendinize uyarlayın...

Sub Makro1()

Dim ie
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate ("https://www.excel.web.tr/threads/web-sayfasindaki-html-linkleri-listelemek.157882/")
  Do Until ie.ReadyState = 4
  Loop
Columns("A:B").ClearContents
Set urls = ie.document.all.tags("a")

For x = 0 To (urls.Length) - 1
 
 'Range("A" & x + 1).Value = urls(x).innerHTML
 'Range("B" & x + 1).Value = urls(x).href
 
 
 If InStr(urls(x).innerHTML, "Yeni mesajlar") > 0 Then
   'Range("B" & x + 1).Value = urls(x).href
   ie.Navigate (urls(x).href), CLng(2048)
   'Exit For
 End If



Next


End Sub