Extrair todos os hyperlinks de um site com selenium?[RESOLVIDO]
Enviado: Seg Abr 13, 2020 7:47 pm
como faço?
Com internet Controls e assim:
me ajudem a converter este codigo a baixo para selenium!
Com internet Controls e assim:
me ajudem a converter este codigo a baixo para selenium!
Código: Selecionar todos
Sub scrapeHyperlinksWebsite()
Dim ie As InternetExplorer
Dim html As HTMLDocument
Dim ElementCol As Object
Dim ElementCol1 As Object
Dim Link As Object
Dim erow As Long
Application.ScreenUpdating = False
Set ie = New InternetExplorer
ie.Visible = False
ie.navigate "https://www.academiadasapostasbrasil.com/"
Do While ie.readyState <> READYSTATE_COMPLETE
DoEvents
Loop
Set html = ie.document
'Range("A1") = html.DocumentElement.innerHTML
Set ElementCol = html.getElementsByTagName("a")
For Each Link In ElementCol
erow = Worksheets("planilha1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
Cells(erow, 1).Value = Link
Cells(erow, 1).Columns.AutoFit
Next
Set ie = Nothing
Application.StatusBar = ""
Application.ScreenUpdating = True
End Sub