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.
para extrair todos os hyperlinks de um site eu ja sei,agora eu gostaria de extrair através de uma determinada classe, abaixo e um exemplo de como executar para extrair todos os hyperlinks:
Sub selenium_scrapeHyperlinksWebsite()
Dim driver As WebDriver: Set driver = New ChromeDriver
Dim todosOsLinks As WebElements, linkUnico As WebElement
driver.Get "https://www.academiadasapostasbrasil.com/stats/match/alemanha/bundesliga/colonia/rb-leipzig/3047279"
Range("B2").Select
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
End Sub
ai eu gostaria de extrair os hyperlinks desta classe:
Sub GetVideoPage()
Dim XMLReq As New MSXML2.XMLHTTP60
Dim HTMLDoc As New MSHTML.HTMLDocument
Dim VidCatList As MSHTML.IHTMLElement
Dim VidCats As MSHTML.IHTMLElementCollection
Dim VidCat As MSHTML.IHTMLElement
Dim VidCatID As Integer
Dim NextHref As String
Dim NextURL As String
Range("A1").Select
XMLReq.Open "GET", "https://www.academiadasapostasbrasil.com/stats/match/alemanha/bundesliga/colonia/rb-leipzig/3047279", False
XMLReq.Send
If XMLReq.Status <> 200 Then
MsgBox "Problem" & vbNewLine & XMLReg.Status & "" - "" & XMLReq.statusText
Exit Sub
End If
HTMLDoc.body.innerHTML = XMLReq.responseText
Set XMLReq = Nothing
Set VidCatList = HTMLDoc.getElementsByClassName("mobile_single_column")(7)
Set VidCats = VidCatList.getElementsByTagName("a")
Debug.Print VidCats.Length
For VidCatID = 1 To VidCats.Length - 1
Set VidCat = VidCats(VidCatID)
ActiveCell.Offset(0, 1).Value = VidCat.getAttribute("href")
ActiveCell.Offset(1, 0).Select
', VidCat.getAttribute("href")
Next VidCatID
End Sub
pedrodssj escreveu: ↑Ter Jun 02, 2020 1:08 pm
para extrair todos os hyperlinks de um site eu ja sei,agora eu gostaria de extrair através de uma determinada classe, abaixo e um exemplo de como executar para extrair todos os hyperlinks:
Sub selenium_scrapeHyperlinksWebsite()
Dim driver As WebDriver: Set driver = New ChromeDriver
Dim todosOsLinks As WebElements, linkUnico As WebElement
driver.Get "https://www.academiadasapostasbrasil.com/stats/match/alemanha/bundesliga/colonia/rb-leipzig/3047279"
Range("B2").Select
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
End Sub
ai eu gostaria de extrair os hyperlinks desta classe:
Sub GetVideoPage()
Dim XMLReq As New MSXML2.XMLHTTP60
Dim HTMLDoc As New MSHTML.HTMLDocument
Dim VidCatList As MSHTML.IHTMLElement
Dim VidCats As MSHTML.IHTMLElementCollection
Dim VidCat As MSHTML.IHTMLElement
Dim VidCatID As Integer
Dim NextHref As String
Dim NextURL As String
Range("A1").Select
XMLReq.Open "GET", "https://www.academiadasapostasbrasil.com/stats/match/alemanha/bundesliga/colonia/rb-leipzig/3047279", False
XMLReq.Send
If XMLReq.Status <> 200 Then
MsgBox "Problem" & vbNewLine & XMLReg.Status & "" - "" & XMLReq.statusText
Exit Sub
End If
HTMLDoc.body.innerHTML = XMLReq.responseText
Set XMLReq = Nothing
Set VidCatList = HTMLDoc.getElementsByClassName("mobile_single_column")(7)
Set VidCats = VidCatList.getElementsByTagName("a")
Debug.Print VidCats.Length
For VidCatID = 1 To VidCats.Length - 1
Set VidCat = VidCats(VidCatID)
ActiveCell.Offset(0, 1).Value = VidCat.getAttribute("href")
ActiveCell.Offset(1, 0).Select
', VidCat.getAttribute("href")
Next VidCatID
End Sub
[REMOVIDO]
eu como faz para somente extrair os hyperlink da classe solicitada com selenium me ajudem por favor!!!!