Jump to content

LGustavoFerreira

Members
  • Content count

    1
  • Joined

  • Last visited

Everything posted by LGustavoFerreira

  1. LGustavoFerreira

    Excel e HTML

    Estou tentando criar um código em VBA onde ele busque os dados em uma célula dentro do excel e jogue em um campo localizado em uma página da WEB, depois realize a pesquisa e colete os dados informados nesta pesquisa. A primeira parte eu consegui fazer. Determinei o nome das células Achei o "nome" dos campos na web correlacionei e dei o click no botão realizando a pesquisa e me mostrando o resultado porém, eu não estou conseguindo captar essas informações. Fazer esse webscraping irá me servir e muito. parte do código da pagina aonde contem as informações que eu quero "captar" é essa: <td class="A2dc15756fd404f1985562b0c7bffbf3d111c" style="height: 12mm;"> <div style="width: 30.24mm; overflow: hidden; min-width: 30.24mm;"> <div class="Pc1bd76d0feb2422da77e6cdb5aec3bc2_1_r17 tdResizable" lang="en-US" style="width: 100%; display: flex; -webkit-flex-flow: row;"> <div class="A2dc15756fd404f1985562b0c7bffbf3d111 cannotGrowTextBoxInTablix cannotShrinkTextBoxInTablix" id="Pc1bd76d0feb2422da77e6cdb5aec3bc2_1_112iT0_aria" style="position: relative; max-width: 30.24mm;"> <div style="width: 30.24mm; min-width: 30.24mm;"> <div> <div class="A2dc15756fd404f1985562b0c7bffbf3d108"> <span class="A2dc15756fd404f1985562b0c7bffbf3d107">Estrutura (nº)</span> </div> <div class="A2dc15756fd404f1985562b0c7bffbf3d110"> <span class="A2dc15756fd404f1985562b0c7bffbf3d109">Structure (nº)</span> </div> </div> </div> </div> </div> </div> </td> As informações que eu quero estão aparecendo nesse "Span Class" que é a Estrutura (nº) e Structure (nº) As informações restantes seguem o mesmo padrão... Como eu sou leigo.. já tentei algumas coisas no VBA como: Set tabela = IE.document.all.tags("td") For i = 0 To tabela.Length - 1 sFilme = Replace(tabela.Item(i).innerText, Chr(10), "") If sTabela <> "" Then Cells(iLin, "A").Value = sTabela iLin = iLin + 1 End If tentei também: For Each htmlEle In ieObj.Document.getElementsByClassName("td")(0).getElementsByTagName("tr") With ActiveSheet .rang("L" & i).Value = htmlEle.Children(0).textContent .rang("M" & i).Value = htmlEle.Children(1).textContent .rang("N" & i).Value = htmlEle.Children(2).textContent .rang("O" & i).Value = htmlEle.Children(3).textContent .rang("P" & i).Value = htmlEle.Children(4).textContent .rang("Q" & i).Value = htmlEle.Children(5).textContent End With i = i + 1 Next htmlEle todos os códigos eu copiei de planilhas que funcionam em outros sites, mas não funcionam quando eu tento no meu site, mesmo alterando os valores das Tags que estão td para span ou algo do tipo, como disse eu sou leigo e estou fazendo uma salada.... Alguem poderia me ajudar?
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.