A Web está aí, não há como negar. Ela é onipresente em praticamente toda operação eletrônica realizada nos dias de hoje. Como não podia ser diferente, o Excel, ferramenta máxima para analistas e profissionais das mais diversas áreas do mercado precisa estar alinhado com esta necesssidade. E ele está! Neste forum, o debate é focado em expor dúvidas, sugestões, modelos de código e exemplos de uso do Excel na Integração com tecnologias Web.
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
Editado pela última vez por pedrodssj em Sáb Abr 18, 2020 7:35 pm, em um total de 1 vez.
Sub selenium_scrapeHyperlinksWebsite()
Dim driver As WebDriver: Set driver = New ChromeDriver
Dim todosOsLinks As WebElements, linkUnico As WebElement
driver.Get "https://www.academiadasapostasbrasil.com/"
Set todosOsLinks = driver.FindElementsByTag("a")
For Each linkUnico In todosOsLinks
Debug.Print linkUnico.Attribute("href")
Next linkUnico
End Sub
Sub selenium_scrapeHyperlinksWebsite()
Application.ScreenUpdating = False
Application.Calculation = xlManual
Dim driver As WebDriver: Set driver = New ChromeDriver
Dim todosOsLinks As WebElements, linkUnico As WebElement
driver.Get "https://www.academiadasapostasbrasil.com/"
Range("B2").Select
'While Busy
'Application.Wait TimeSerial(Hour(Now), Minute(Now), Second(Now) + 1)
'DoEvents:
'Wend
driver.FindElementByClass("toggle-livescores-menu").Click
driver.FindElementByXPath("//div[@id='main-container']/div[3]/div[2]/div[3]/div/div[2]/div[3]/div/a[2]/span").Click
driver.FindElementByClass("toggle-livescores-menu").Click
Application.Wait Now + TimeValue("00:00:05")
Set todosOsLinks = driver.FindElementsByTag("a")
For Each linkUnico In todosOsLinks
ActiveCell.Offset(0, 1).Value = linkUnico.Attribute("href")
ActiveCell.Offset(1, 0).Select
Next linkUnico
Application.ScreenUpdating = True
Application.Calculation = xlAutomatic
End Sub