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?
